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Preface 


Routines graphiques et sonores en GfA Basic a ete congue pour procurer, a 
l'amateur comme au programmeur averti, la possibility d'acceder a plus de 
40 effets speciaux. 

Ces effets speciaux represented un important travail de programmation et 
ne sont guere realisables sans une connaissance approfondie tant du 
hardware que du software. C'est pourquoi notre bibliotheque GfA Basic 
comprend un ensemble de modules utilisables immediatement sans qu'il 
soit necessaire d'etre un programmeur chevronne. 

Les caracteristiques du langage BASIC, et surtout sa grande simplicity 
permettant un passage rapide a la programmation, facilitent egalement 
l'utilisation de cette bibliotheque. 

En regie generale, la difficulty ne reside plus tant aujourd'hui dans le choix 
d'un langage de programmation mais dans la definition des objectifs 
poursuivis lors de l'ecriture d'un programme. 

Routines graphiques et sonores en GfA Basic vous. sera d'une aide 
precieuse : qui ne reve pas de programmer des 'sprites' se deplaqant sur 
l'ecran ou de do ter son programme d'une page d'accueil dont le texte defile 
sur l'ecran ? 

Inutile maintenant de recopier des pages et des pages de colonnes de 
chiffres, vous allez pouvoir commencer immediatement a programmer, et 
nous esperons que cette bibliotheque GfA Basic vous donnera entiere 
satisfaction. 
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1. INTRODUCTION 


1. Contenu de la disquette 


Les procedures sont reparties en trois lots : 


A: Le graphisme 
B: Le son 
C: Divers 


Pour faciliter l'acces a la disquette, nous avons range les procedures, les 
programmes d'exemple ainsi que les divers fichiers dans differents dossiers 
et sous-dossiers: 


EXAMPLESXSTUFF: 
EXAMPLES\PROGRAMS.ALL: 
EXAMPLESXPROGRAMS.HIG : 
EXAMPLESXPROGRAMS.LOW : 
GFA_ALIB.3_0: 

GFA_GLIB.3_0\GFA_GLIB.ALL : 

GFA_GLIB.3_0\GFA_GLIB.HIG : 
GFA_GLIB.3_0\GFA_GLIB.LOW: 
GFA_GLIB.3_0\GFA_GLIB.MED: 
GFA_SLIB.3_0: 


Fichiers complementaires par exemple : 
images de demonstration 
Programmes de demonstration tournant 
dans les trois resolutions d'ecran possibles 
Programmes de demonstration tournant en 
haute resolution 

Programmes de demonstration tournant en 
basse resolution 

Procedures de functions generates 
Procedures graphiques, tournant dans les 
trois resolutions possibles ou dans les deux 
resolutions couleur 

Procedures graphiques, tournant en haute 
resolution 

Procedures graphiques, tournant en basse 
resolution 

Procedures graphiques, tournant en 
moyenne resolution 
Procedures sonores 


Les procedures et les programmes de demonstration sont enregistres sous 
forme de fichiers ASCII (extension LST) sur la disquette, et il vous suffit de 
les recharger par MERGE dans l'interpreteur GfA Basic. Ceci permet non 
seulement de gagner de la place en memoire mais surtout de les integrer 



dans vos propres programmes, ce qui constitue d'ailleurs le principal 
interet de telles procedures. 

Voici une vue d'ensemble de tous les fichiers se trouvant sur la disquette : 

EXAMPLES 


\EXAMPLES\STUFF 

DEMO.PI1 Image Degas-Elite en basse resolution 

DEMO.PIC Image haute resolution en format 32000 octets 

DEMO.SMP Exemple sonore (son de cloche) 

PHONEMS.SMP Phonemes pour la procedure SPEECH 

\EXAMPLES\PROGRAMS.ALL 


BLACK.LST 

HORLOGE.LST 

INTANI.LST 

MIDIKY.LST 

PINPUT.LST 

REPSND.LST 

RESET.LST 

SMPLAY.LST 

SPEECH. LST 


Demo de BLACK 
Demo de HORLOGE 
D£mo de INTANI 
Demo de MIDIKY 
D6mo de PINPUT 
Demo de REPSND 
Demo de RESET 
Demo de SMPLAY 
D6mo de SPEECH 


\EXAMPLES\PROGRAMS.HIG 


COLANI.LST 

GRAF2D.LST 

GRAF3D.LST 

HFADEOF.LST 

H_.FADEOV.LST 

H LOUPE.LST 

H_OPCDEC.LST 

H_SCOHSC .LST 

H.SHAP16.LST 

H. SHAP32.LST 

HSHAP64.LST 

H_TCOTEX.LST 

H_V SCROL .LST 

NINPUT.LSrr 

OFFXX.LST 

PATMOV.LST 


Demo de COLANI, PLOAD et POPPAL 

D4mo de GRAF2D 

Demo de GRAF3D 

D£mo de H. FADEOF 

Demo de H FADEOV 

Demo de H LOUPE 

Demo de H OPCOMP et H DECOMP 

Demo de H SCONV et H_SCROL 

D4mo de H SHAP16 

D4mo de H_SHAP32 

Demo de H SHAP64 

D4mo de H. TCONV et H_TEXT88 

Demo de H..VSCROL 

Demo de NINPUT 

Demo de OFFXX 

Demo de PATMOV 



PSHOW.LST 

VSCROL.LST 


Demo de PSHOW 
Demo de VSCROL 


\EXAMPLES\PROGRAMS.LOW 


COLANLLST 

GRAF2D.LST 

GRAF3D.LST 

L_CPOXX.LST 

L^FADEOF.LST 

L FADEOV.LST 

L_GREYS.LST 

L__OPCDEC.LST 

L_SCOHSC. LST 

L_SHAP16.LST 

L_SHAP32.LST 

L_SHAP64.LST 

LJTCOTEX.LST 

L_ V SCROL .LST 

MPAL.LST 

MRES.LST 

NB5060.LST 

NINPUT.LST 

OFFXX.LST 

PATMOV.LST 

POLICE.LST 

PSHOW.LST 

VSCROL.LST 

GFA_ALIB.3_0 

BLACK.LST 

HORLOGE.INL 

HORLOGE.LST 

NB5060.LST 

NINPUT.LST 

PATMOV.INL 

PATMOV.LST 

PINPUT.LST 

RESET.INL 

RESET.LST 


Demo de COLANI, PLOAD et POPPAL 

D4mo de GRAF2D 

Demo de GRAF3D 

Demo de L_CPOFF et L_CPON 

Demo de L_FADEOF 

Demo de L_FADEOV 

Demo de L^GREYS 

Demo de L_OPCOMP et L_DECOMP 

Demo de L_SCONV et L^HSCROL 

Demo de L^_SHAP16 

Demo de L^SHAP32 

Demo de L_SHAP64 

Demo de L_TCONV et L_ TEXT88 

Demo de LJVSCROL 

Demo de MPAL 

Demo de MRES et SETRES 

Demo de NB5060 

Demo de NINPUT 

Demo de OFFXX 

Demo de PATMOV 

Demo de POLICE 

Demo de PSHOW 

Demo de VSCROL 


Procedure BLACK 

Fichier INLINE de la procedure HORLOGE 
Procedure HORLOGE 
Procedure NB5060 
Procedure NINPUT 

Fichier INLINE de la procedure PATMOV 
Procedure PATMOV 
Procedure PINPUT 

Fichier INLINE de la procedure RESET 
Procedure RESET 



GFA GLIB.3 0 


\GFA_GLIB.3_0\GFA_GLIB.ALL 


COLANI.INL 

COLANI.LST 

GRAF2D.LST 

GRAF3D.LST 

INTANI.INL 

INTANI.LST 

MPAL.INL 

MPAL.LST 

MRES.INL 

MRES.LST 

OFFXX.LST 

PLOAD.LST 

POLICE. LST 

POPPAL.LST 

PSHOW.LST 

SETRES.LST 

VSCROL.INL 

VSCROL.LST 


Fichier INLINE de la procedure COLANI 
Procedure GOLANI 
Procedure GRAF2D 
Procedure GRAF3D 

Fichier INLINE de la procedure INTANI 
Procedure INTANI 

Fichier INLINE de la procedure MPAL 
Procedure MPAL 

Fichier INLINE de la procedure MRES 

Procedure MRES 

Procedure OFFXX 

Procedure PLOAD 

Procedure POLICE 

Procedure POPPAL 

Procedure PSHOW 

Procedure SETRES 

Fichier INLINE de la procedure VSCROL 
Procedure VSCROL 


\GFA_GLIB.3_0\GFA_GLIB.HIG 


HDECOMP.INL 

H_DECOMP.LST 

H_FADEOF.INL 

H_FADEOF.LST 

H_FADEOV.INL 

H FADEOV.LST 

H_HSCROL.INL 

H^HSCROL.LST 

H_LOUPE.INL 

H LOUPE.LST 

H_OPCOMP.INL 

H_OPCOMP.LST 

FLSCONV.INL 

H_SCONV.LST 

H_SHAP16.INL 

H_SHAP16.LST 

H_SHAP32.INL 

H SHAP32.LST 


Fichier INLINE de la procedure H JDECOMP 

Procedure H_DECOMP 

Fichier INLINE de la procedure H_FADEOF 

Procedure H_FADEOF 

Fichier INLINE de la procedure H_FADEOV 

Procedure H_FADEOV 

Fichier INLINE de la procedure H_SCROL 

Procedure H_SCROL 

Fichier INLINE de la procedure H_LOUPE 
Procedure H_ LOUPE 

Fichier INLINE de la procedure H_OPCOMP 
Procedure H_OPCOMP 
Fichier INLINE de la procedure H_SCONV 
Procedure H_SCONV 

Fichier INLINE de la procedure H_SHAP16 
Procedure H_SHAP16 
Fichier INLINE de la procedure H_SHAP32 
Procedure H SHAP32 



HJ3HAP64.INL 
H_SHAP64.LST 
H_TCONV.LST 
H_TEXT88.INL 
H TEXT88.LST 
H_VCONV.LST 
H_VSCROL.INL 
H VSCROL.LST 


Fichier INLINE de la procedure HJ3HAP64 

Procedure H^SHAP64 

Procedure H_TCONV 

Fichier INLINE de la procedure H_TEXT88 

Procedure H_TEXT88 

Procedure H_VCONV 

Fichier INLINE de la procedure HJVSCROL 

Procedure H JVSCROL 


\GFA_GLIB3„0\GFA GLIB.LOW 


L_CPOFF.LST 

L_CPON.LST 

L_DECOMP.INL 

L_DECOMP.LST 

L_FADEOF.INL 

L^FADEOF.LST 

L_FADEOV.INL 

L^FADEOV.LST 

L_GREYS.LST 

LJHSCROL.INL 

L HSCROL.LST 

L_OPCOMP.INL 

L„OPCOMP.LST 

LJ3CONV.INL 

L_SCONV.LST 

L_SHAP16.INL 

L_SHAP16.LST 

L_SHAP32.INL 

L_SHAP32.LST 

L_SHAP64.INL 

L_SHAP64.LST 

LTCONV.LST 

L_TEXT88.INL 

L_TEXT88.LST 

LJVCONV.LST 

L_VSCROL.INL 

LJVSCROL.LST 


Procedure L CPOFF 
Procedure L^CPON 

Fichier INLINE de la procedure LJDECOMP 

Procedure L_DECOMP 

Fichier INLINE de la procedure L_FADEOF 

Procedure L_FADEOF 

Fichier INLINE de la procedure L_FADEOV 

Procedure L_FADEOV 

Procedure L GREYS 

Fichier INLINE de la procedure L_HSCROL 

Procedure L JiSCROL 

Fichier INLINE de la procedure L_OPCOMP 

Procedure L_OPCOMP 

Fichier INLINE de la procedure L_SCONV 

Procedure L^SCONV 

Fichier INLINE de la procedure L_SHAP16 

Procedure L SHAP16 

Fichier INLINE de la procedure L_SHAP32 

Procedure L J>HAP32 

Fichier INLINE de la procedure L_SHAP64 

Procedure L_SHAP64 

Procedure L TCONV 

Fichier INLINE de la procedure LJTEXT88 

Procedure LTEXT88 

Procedure L VCONV 

Fichier INLINE de la procedure LJVSCROL 
Procedure LJVSCROL 


\GFA_GLIB.3_0\GFA_GLIB.MED 


M_CPOFF.LST 
M CPON.LST 


Procedure M^CPOFF 
Procedure M CPON 



M_DECOMP.INL 

Fichier INLINE de la procedure M_DECOMP 

M_DECOMP.LST 

Procedure M_DECOMP 

M_FADEOF.INL 

Fichier INLINE de la procedure M_FADEOF 

M FADEOF.LST 

Procedure MFADEOF 

M_FADEOV.INL 

Fichier INLINE de la procedure M FADEOV 

M_FADEOV.LST 

Procedure M_FADEOV 

M_GREYS.LST 

Procedure M_GREYS 

M_HSCROL.INL 

Fichier INLINE de la procedure M_HSCROL 

M_HSCROL.LST 

Procedure M_HSCROL 

M_OPCOMP.INL 

Fichier INLINE de la procedure M_OPCOMP 

M_OPCOMP.LST 

Procedure M OPCOMP 

M_SCONV.INL 

Fichier INLINE de la procedure M_SCONV 

M SCONV.LST 

Procedure M_SCONV 

M_SHAP16.INL 

Fichier INLINE de la procedure M_SHAP16 

M.SHAP16.LST 

Procedure M_SHAP16 

M_SHAP32.INL 

Fichier INLINE de la procedure M_SHAP32 

M_SHAP32.LST 

Procedure M SHAP32 

M_SHAP64.INL 

Fichier INLINE de la procedure M_SHAP64 

M_SHAP64.LST 

Procedure M_SHAP64 

M TCONV.LST 

Procedure M_TCONV 

M_TEXT88.INL 

Fichier INLINE de la procedure M_TEXT88 

M_TEXT88.LST 

Procedure M_TEXT88 

M_VCONV.LST 

Procedure M. VCONV 

M_VSCROL.INL 

Fichier INLINE de la procedure M_VSCROL 

MJVSCROL.LST 

Procedure M_VSCROL 

GFA_SLIB.3_0 

MIDIKY.LST 

Procedure MIDIKY 

REPSND.INL 

Fichier INLINE de la procedure REPSND 

REPSND.LST 

Procedure REPSND 

SMPLAY.INL 

Fichier INLINE de la procedure SMPLAY 

SMPLAY.LST 

Procedure SMPLAY 

SPEECH.LST 

Procedure SPEECH 



2. Programmes de demonstration 

Toutes les procedures presentees ici en GfA Basic sont accompagnees de 
programmes de demonstration sur la disquette ; ces programmes sont 
ecrits en GfA Basic 3.0 et sont directement operationnels. 

Les programmes de demonstration se presentent sous la forme de fichiers 
ASCII et se trouvent dans les dossiers PROGRAMS. ALL, PROGRAMS.HIG 
et PROGRAMS.LOW ; il vous suffit de les charger dans l'interpreteur en 
utilisant la commande MERGE (touche defonction F2). 

Les fichiers de demonstration ne sont pas en etat de toumer seuls : pour des 
raison de place, les procedures reprises dans la demonstration ne sont pas 
enregistrees avec celle-ci. Vous devez les ajouter (merge) avant de lancer la 
demonstration. 

Nous avons regroupe les demonstrations dans les trois dossiers designes ci- 
dessus, selon le degre de resolution d'ecran (HIG = haute resolution, 
LOW = basse resolution). 

Les procedures ne tournant qu'en moyenne resolution (toutes celles qui 
commencent par M _) ne sont pas accompagnees de programmes de 
demonstration, car elles ne se distinguent guere des procedures similaires 
tournant en basse resolution. 

II arrive assez souvent qu'un meme programme de demonstration 
comprenne l'usage de plusieurs procedures differentes, soit parce qu'il 
s'agit de procedures logiquement apparentees soit parce que cela est 
necessaire par rapport aux differents objectifs poursuivis. Les deux 
procedures PLOAD et POPPAL ne sont ainsi accompagnees d'aucun 
programme de demonstration ; mais comme nous les utilisons 
pratiquement dans tous les autres programmes, cela suffit pour expliciter 
leur mode de fonctionnement. 


3. Utilisation de la bibliotheque GfA Basic 

II est tres facile d'integrer une procedure dans un de vos programmes, et 
c'est ce que nous allons demontrer a l'aide d'un exemple concret. 



Supposons que nous souhaitions utiliser la procedure HORLOGE pour 
faire apparaitre sur l'ecran une horloge indiquant l'ecoulement des heures, 
minutes et secondes. II vous faut commencer par charger dans 
l'interpreteur GfA Basic le programme HORLOGE.LST qui se trouve dans 
le dossier EXAMPLE\PROGRAMS.ALL. 

Apres quoi vous chargez la procedure correspondante, HORLOGE : 
appuyez sur <control> + <Z> pour amener le curseur a la fin du 
programme de demonstration. La procedure HORLOGE se trouve dans le 
dossier GFA_ALIB.3_0, car elle peut toumer avec n'importe lequel des trois 
degres de resolution possibles. 

Comme la procedure HORLOGE fait appel a une routine en assembleur 
enregistree dans un fichier INLINE, il convient encore de recharger le 
fichier INLINE adequat se trouvant sur la disquette. Notez que les 
procedures faisant ainsi appel a des fichiers INLINE sont accompagnees 
sur la disquette des fichiers adequats, lesquels se trouvent dans le meme 
dossier que la procedure et portent le meme nom, suivi de l'extension 
'.INL'. 

Pour charger un fichier INLINE : 

- Dans la procedure, positionnez le curseur sur 1'appel de INLINE 

- Appuyez sur la touche <help> 

- Appuyez sur <L> (pour 'load') et vous voyez apparaitre une bolte de 
selection vous permettant de selectionner le fichier INLINE adequat. 

Une fois ainsi selectionne, le fichier est charge dans le buffer. 

Attention: V 

Notez bien que vous trouverez ci-apres, dans le chapitre 2, une liste des 
procedures, dans laquelle nous precisons derriere chaque procedure si elle 
fait appel ou non a un fichier INLINE et, le cas echeant, ou ce dernier se 
trouve. Veillez a ne charger que les fichiers adequats, et non les fichiers 
INLINE affectes a d'autres procedures, car la moindre erreur entrainerait 
un plantage du systeme, ou tout au moins l'apparition d'un message 
d'erreur. 

Plusieurs procedures font appel a l'instruction INLINE pour d'autres 
raisons, si bien qu'il n'est pas alors necessaire de charger un fichier ; 
d'autres procedures contiennent deux fois l'instruction INLINE. Vous 



devez done lire attentivement les instructions foumies dans la description 
de chaque procedure. 

Une instruction INLINE vous demandant de charger un fichier INLINE se 
reconnait a ce qu'elle contient, en tant que parametre, la variable 

codeadr_%. Seule exception, les procedures SHAPE, dont voici les 

variables INLINE: 

- I_shapl6mc__ I - l_shap32mc_% - l_shap64mc % 

- m_shapl6mc_ % - m_shap32mc_% - m_shap64mc I 

- n_stiapl6mc_ \ - n_shap32mc_% - n_shap64mc_ \ 

Apres avoir charge le fichier INLINE adequat, vous pouvez lancer le 

programme. 

4. Appel des procedures 


Voici comment vous y prendre pour integrer l'une des procedures dans un 
de vos propres programmes. 

Nous vous precisons, dans les explications concemant chaque procedure, si 
cette demiere fait appel ou non a un fichier INLINE que vous devrez 
charger avant de lancer l'execution de la procedure concernee. Si vous 
oubliez de charger ce complement INLINE, l'execution de la procedure ne 

peut avoir lieu : la variable lib_rv_% prend la valeur -1, ce qui serf de 

code d'erreur et la valeur 0 lorsque tout se passe correctement. 

Ces fichiers INLINE sont indispensables par exemple lorsqu'une procedure 
fait appel a une routine en assembleur, car il faut d'abord charger cette 
routine en memoire avant de lancer l'execution de la procedure. 

Cette separation des fichiers INLINE et des procedures correspondantes 
vient de ce que le fichier INLINE n'est pas sauvegarde lorsqu'on enregistre 
un programme en GfA Basic a l'aide de la commande SAVE,A. 

Par contre, lorsque vous allez vous-meme ecrire votre programme en y 
integrant une ou plusieurs procedures necessitant eventuellement des 
codes INLINE, vous sauvegarderez ce texte en utilisant la commande 
SAVE (format 'tokenise' et non pas ASCII comme ce serait le cas avec SAVE,A), 
si bien que le code INLINE sera sauvegarde en meme temps que la 
procedure. Par la suite, lorsque vous chargerez votre programme a l'aide de 



LOAD, vous n'aurez plus besoin de recharger les fichiers INLINE puisqu'ils 
seront deja contenus dans le programme. 


5. Les variables 

Toutes les variables utilisees dans les procedures portent un nom se 
terminant par deux tirets bas (anglais: underscores) comme par exemple 

codeadr_%. Ceci vous permet d'eviter facilement toute confusion avec des 

variables de votre programme principal, dans lequel vous eviterez 
soigneusement de donner aux variables des noms se terminant ainsi par 
deux tirets bas. 

C'est la pour vous la meilleure garantie d'eviter des conflits entre variables. 
Certes, la plupart des variables sont declarees comme variables locales dans 
nos procedures, mais il etait impossible d'eviter totalement d'avoir recours 
a quelques variables globales, dont il ne faut pas modifier la valeur. 


6. Les interruptions 

Certaines des procedures de cette bibliotheque utilisent des routines 
d'interruption. Lorsque vous les utilisez, vous devez absolument veiller a 
ce qu'elles soient suivies quelque part d'un 'stop', de fag on a y mettre fin 
AVANT de ressortir de votre programme. En cas d'oubli, vous 
provoquerez un plantage general du systeme ou d autres effets tout aussi 
peu agreables ! 


7. Les taux de resolution 

Comme nous l'avons deja dit, la disquette contient des procedures pour 
chaque degre de resolution. Il est facile de reconnaitre les procedures qui ne 
peuvent toumer que sous telle ou telle resolution : leur nom commence par 
une lettre (H, L ou M) precisant le degre de resolution adequat, comme par 
exemple dans le nom L_SHAP16 (L est l'abreviation de 'Low resolution = 
basse resolution). 

La plupart des procedures sont donnees dans les trois versions certaines 
cependant n'existent que dans telle ou telle resolution, puisqu'elles utilisent 
des proprietes liees a un degre de resolution determine (palette des couleurs, 



frequence de balayage de Vecran etc). C'est d'ailleurs la raison pour laquelle il y 
a moins de procedures tournant en haute resolution qu'en moyenne ou 
basse resolution. 

8. Erreur dans le passage des parametres 

Nous n'avons inclue aucun controle des parametres passes dans la plupart 
des procedures, car ceci aurait augmente considerablement les depenses de 
programmation, l'espace occupe en memoire ainsi que la longueur des 
procedures. C'est a vous, utilisateur, de prendre en main ces controles pour 
qu'aucun parametre errone ne puisse etre passe a une procedure. 

Attention: V 

Dans certains cas, le fait de passer un parametre inexact a une procedure 
peut suffire pour provoquer un plantage general du systeme. 

Certaines procedures disposent tout de meme d'une verification des 
parametres passes afin de parer a un plantage. En cas d'erreur et lorsque 
cette procedure de controle existe, la valeur retoumee par la procedure (voir 
chapitre 2) represente un code d'erreur (lib_rv_%), qui est explicite au 
debut de la procedure. 


9. Trues et astuces 

>■ Soyez patient lors du chargement d'un fichier LST, car cela peut 
prendre un certain temps; 

Ne procedez a aucune modification dans les procedures 
(fichiers LST), ou alors ce sera k vos risques et perils : nous ne 
pouvons plus garantir le bon fonctionnement des procedures a 
partir du moment ou vous intervenez dedans; 

> II est possible d'appeler la procedure HORLOGE en lui faisant 
prendre la meme valeur que l'heure systeme : retapez les quelques 
lignes suivantes: 

hours_ % = VAL(LEFT$(TIME$,2)) 

minutes_ % = VAL(MID$(TIME$,4,6)) 

seconds_% = VAL(RIGHT$(TIME$, 2)) 



>> il est tout a fait possible d'utiliser plusieurs fois les procedures 
suivantes: 

HORLOGE.LST heure actuelle 

INTANI.LST animation par interruption 

On peut faire toumer sept horloges simultanement : cela depend du 
nombre de procedures utilisees faisant appel a l'interruption VBL 
(exemple : 5 * HORLOGE + 2 * INTANI). 

Veuillez vous reporter aux pages qui vont suivre pour savoir quels sont les 
proctkiures qui utilisent cette interruption. 

Pour faire toumer par exemple deux horloges simultanement, vous chargez 
deux fois le fichier LST correspondant, apres quoi vous modifiez tous les 
noms de variables dans l'une des deux procedures en leur ajoutant par 
exemple une lettre ou un chiffre ; il faut aussi changer le nom de la 
procedure. 


10. Vue d'ensemble des procedures 


BLACK 

HORLOGE 

COLANI 

INTANI 

GRAF2D 

L CPOFF 

GRAF3D 

L CPOFF 

H DECOMP 

L.DECOMP 

H.FADEOF 

L_FADEOF 

H_FADEOV 

L^FADEOV 

H LOUPE 

L_GREYS 

H OPCOMP 

L HSCROL 

H SCONV 

L„OPCOMP 

H SCROL 

L SCONV 

H„SHAP16 

L.SHAP16 

H SHAP32 

L_SHAP32 

H SHAP64 

L_SHAP64 

H_TCONV 

L_TCONV 

H TEXT88 

L_TEXT88 

H_VCONV 

L_VCONV 

H_ VSCROL 

L VSCROL 


M CPOFF 

MRES 

M.CPON 

NB5060 

M.DECOMP 

NINPUT 

M_FADEOF 

OFFXX 

M.FADEOV 

PATMOV 

M„GREYS 

PINPUT 

M HSCROL 

PLOAD 

M_OPCOMP 

POLICE 

M SCONV 

POPPAL 

M_SHAP16 

PSHOW 

M„SHAP32 

REPSND 

M_SHAP64 

RESET 

M_TCONV 

SETRES 

M_TEXT88 

SMPLAY 

M_VCONV 

SPEECH 

VSCROL 

VSCROL 

MIDIKY 


MPAL 




11. Les valeurs retournees 


Plusieurs procedures retoument une valeur, soit pour signaler une erreur 
soit parce que cela entre dans leurs attributions. Lorsque la valeur 

retoumee est de type numerique, elle sera passee a la variable lib_rv_% ; 

lorsqu'il s'agit d'une chaine de caracteres, elle sera passee a la variable 
lib_rv_$. 

Exemple: 

Les procedures faisant appel a un fichier INLINE vont d'abord verifier dans 
le buffer INLINE si le fichier a bien ete charge. Si tel n'est pas le cas, 
l'execution de la procedure est suspendue, ce qui vous evite de recevoir 
quelques petites bombes sur votre ecran : la valeur -1 est retoumee a la 
variable lib^rv_%. 

Veuillez consulter ce manuel pour savoir si la procedure utilisee renvoie ou 
non une valeur et quelle est sa fonction 



II. Description de$ procedures 


Dans les pages qui vont suivre, nous allons decrire une par une chacune 
des procedures. La description s'appuie sur un petit programme de 
demonstration. 


Toutes les procedures font l'objet de la meme grille duplication, divisee en 
plusieurs rubriques, que nous allons preciser. 


Utilisation: 


Dossier: 


INLINE : 


Exemple: 


Syntaxe: 


Parametres: 


Vous trouverez dans cette rubrique une breve 
presentation de la fonction assuree par la procedure 
c'est-a-dire, pour parler plus couramment, ce a quoi la 
procedure peut servir. 

Cette rubrique vous indique l'endroit ou se trouve la 
procedure sur la disquette (chemin d'acces) et sous quel 
nom de fichier elle est enregistree. 

Cette rubrique vous precise si la procedure en question 
fait ou non appel a un fichier INLINE qu'il faut charger 
avant l'execution de la procedure. Lorsque tel est le 
cas, nous vous indiquons le chemin d'acces et le nom 
du fichier INLINE a charger. En general, le fichier 
INLINE porte le meme nom que la procedure 
correspondante, dont il se distingue par l'extension 
'INL'. 

Cette rubrique vous indique s'il existe un programme 
de demonstration se rapportant a la procedure 
concernee, et, si tel est le cas, dans quel dossier et sous 
quel nom il se trouve. 

Cette rubrique vous indique comment lancer la 
procedure, et quels parametres il convient de lui 
passer. 

Nous vous expliquons, si necessaire, quels parametres 
il convient de passer a la procedure, leur fonction, leur 
valeur etc. 



Valeur retournee: 


Description: 


MERGE: 


Cette rubrique vous indique si la procedure retoume 
une valeur, et, si tel est le cas, la nature de cette valeur 
(numerique ou chaine de caracteres) ainsi que sa 
signification. 

Cette rubrique contient une description plus detaillee 
de la procedure, eventuellement certains details et 
particularity de fonctionnement. 

Vous trouverez ici les procedures (avec leur chemin 
d'acces) qu'il convient de charger pour que le 
programme de demonstration puisse toumer 
correctement. 

Cette rubrique contient des explications detaillees 
relatives au programme de demonstration. 



Graphisme : COLANI 


Utilisation: 


Dossier: 


INLINE: 
Exemples: 


Syntaxe: 


Provoque une 'rotation' du registre des couleurs 
(cycle de couleurs) par interruption. Le nombre de 
registres utilises ainsi que leur succession sont laisses a 
l'appreciation du programmeur. 

GFA„GLIB.3J)\GFA_GLIB.ALL\COLANI.LST 
(quelle que soit la resolution). 

GFA_GLIB.3_0\GFA GLIB.ALLXCOLANI.INL 

EXAMPLES\PROGRAMS.LOW\COLANI.LST 
(basse resolution) 

EX AMPLES \PROGR AMS.HIG \ COLANI. LST 
(haute resolution) 

GOSUB gfa_colani_(sourceadr_%,option_%) 


Parametres: 

- sourceadr % 


Adresse d'un bloc de parametres ayant la structure suivante : 

1. Word = nombre de registres couleur utilises dans le cycle de couleurs(n) 

2. Word = vitesse, mesuree en l/50eme ou l/60eme de seconde (selon la 
frequence de balayage de l'image) ; si les couleurs doivent changer a 
chaque seconde et si la frequence de repetition de l'image est de 50 Hz, 
vous entrez la valeur 50, car 50/50 = 1 seconde. 


3. Word = Numero du premier registre des couleurs (0 -15). 

4. Word = Numero du deuxieme registre des couleurs 
etc.... 


x. Word = Numero du n-ieme registre des couleurs 



y. Word = numero du premier registre des couleurs. 

Notez bien que le dernier mot 'word' sert a repeter le numero du premier 
registre se trouvant deja dans le 3eme word. II faut aussi veiller a bien 
entrer le meme nombre de registres de couleurs que celui declare dans le 
ler 'word', soit 'n' registres : le premier registre (repet e en y) ne compte que 
pour un seul registre. Le nombre de registres mis en oeuvre ainsi que leur 
succession restent a la discretion du programmeur, qui peut d ailleurs 
mobiliser plusieurs fois le meme registre si bon lui semble, sans avoir a 
respecter quelque limite que ce soit. 

- options_% = 

Ce flag sert a preciser s'il convient de lancer ou d'arreter l'interruption du 
cycle de couleurs; il peut prendre les etats suivants : 

>- options_% <> 0 = lancer la rotation de couleurs 

>» options_% == 0 = arreter la rotation de couleurs. 

Valeur retoumee: 

lib_rv_% = code d'erreur ; lib_rv_% retoume la valeur -1 lorsque vous 

oubliez de charger le fichier INLINE accompagnant COLANI, et la valeur 0 
lorsque l'execution de la procedure s'est bien deroulee. 

Description: 

vous pouvez selectionner un nombre quelconque de registres de couleurs, 
selon la resolution de votre ecran. Ces numeros de registres se presentent 
en quelque sorte sous la forme d'une chaine ; les couleurs se mettent a se 
succeder, a la vitesse indiquee dans 'word 2', les couleurs des registres non 
impliques restant inchangees. 

Cela n'interrompt pas le deroulement normal du programme en cours, 
puisque cette routine toume par interruption. 

Veillez a bien interrompre la rotation de couleurs avant la fin du 
programme, faute de quoi il continuerait a tourner (y compris au niveau du 
bureau GEM ) ou provoquerait un plantage de l'ordinateur. 



Exemple (Basse resolution): 

EXAMPLES \ PROG RAMS. LOW \ COL ANI. LST 

MERGE: GFA_LIB.3_0\GFA_GLIB.ALL\PLOAD.LST 

GFA_LIB.3_0\GFA_GLIB.ALL\POPPAL.LST 


Le fonctionnement du programme de demonstration necessite done le char- 
gement de trois procedures (COLANI.LST, PLOAD.LST, POPPAL.LST). 


INLINE pblockadr_%,20 


! buffer pour le bloc de param&tres 


GOSUB gfa_poppal_ 

palette$=lib_rv_$ 

I 

DPOKE pblockadr_%, 7 

DPOKE pblockadr_%+2,5 

DPOKE pblockadr_%+4,5 

DPOKE pblockadr_%+6, 6 

DPOKE pblockadr_%+8,7 

DPOKE pblockadr_%+10,8 

DPOKE pblockadr_%+12,9 

DPOKE pblockadr_%+14 r 10 

DPOKE pblockadr_%+16,11 

DPOK? pblockadr_%+18,5 

registre 


! £crire le bloc de param^tres 
! 7 registres de couleurs mobilises 
! vitesse 5/50 sec = 10 Hz 
! registre de couleurs num£ro 5 
! registre de couleurs numero 6 
! registre de couleurs numero 7 
! registre de couleurs numero 8 
! registre de couleurs numero 9 
! registre de couleurs numero 10 
! registre de couleurs numero 11 
! registre de couleurs numero 5 = ler 


GOSUB gfajpload_("\EXAMPLES\STUFF\DEM0.PI1",XBI0S (2) ,0) 

ALERT 1," |lancer le | cycle de couleurs",1,“ OUI ", button] 


GOSUB gfa_colani_(pblockadr_%,1) 

i 

ALERT 2," |stopper le |cycle de couleurs",!," OUI ", button| 


GOSUB gfa_colani_(0,0) 

~XBIOS(6,L :V :palette$) 

Le programme commence par l'installation, grace a INLINE, d'un buffer de 
20 octets, destine a recevoir le bloc des parametres indispensables au bon 
fonctionnement de COLANI. L'adresse de debut du buffer se trouve 
sous 'pblockadr_%'. 



On sauvegarde ensuite la palette actuelle des couleurs a l'aide de la 
procedure POPPAL, a laquelle il n'est pas besoin de passer des parametres, 

Mais qui retoume la palette en question dans la variable string 'lib_rv_$'. 

Cette variable contient la palette des couleurs dans un format identique par 
exemple a celui de la routine 6 XBIOS ou de la procedure x_CPOFF de 
notre bibliotheque. 

Juste apres l'appel de la procedure POPPAL, le contenu de lib_rv_$ est 

recopie dans la variable 'palette$' puisque 'lib_rv_$' sera appele a 

reprendre des valeurs retoumees eventuellement par d'autres procedures 
de notre bibliotheque. 

Nous creons ensuite le bloc de parametres en ecrivant (instruction DPOKE) 
chacun des parametres dans 1'INLINE ; c'est la qu'il convient d'indiquer 
que nous mobilisons ( dans notre exemple ) les sept registres de couleurs 
numerates 5 a 11, avec une vitesse de 'rotation' de 10 Hz ( pour une frequence 
de repetition de Vimage de 50 Hz) ou de 12 Hz ( frequence de repetition de 60 Hz) 
ce qui donnera environ 10 ou 12 changements de registres a la seconde. 

La procedure PLOAD nous sert alors a charger une image Degas-Elite dans 
la memoire de l'ecran (XBIOS(2)). II convient d'entrer le chemin d'acces au 
fichier contenant l'image et d'attribuer la valeur 0 (precisant qu'il s'agit 

d'une image Degas-Elite) au parametre 'options_%'. PLOAD charge 

l'image et sa palette de couleurs. 

Le cycle de couleurs est lance lorsque l'utilisateur repond positivement a la 
question s'affichant dans une boite de dialogue (alertbox). La deuxieme 
boite de dialogue (stopper le cycle de couleurs ?) s'affiche a l'ecran alors 
que le cycle de couleurs est en train de toumer (=> interruption), ce qui 
serait rigoureusement impossible a programmer uniquement en Basic. 

Cette deuxieme boite de dialogue permet a l'utilisateur de sortir du 
programme de demonstration en interrompant la rotation des couleurs 
lorsqu'il le souhaite. 



Graphisme: 

PLOAD 

Utilisation: 

Chargement, incluant la definition de la palette de 
couleurs, d'une image Degas/Degas-Elite, Neochrome 
ou 32000 octets. 

Dossier: 

GFA_GLIB.3_0\GFA_GLIB.ALL\PLOAD.LST 
(quelle que soit la resolution) 

INLINE: 

Ne necessite aucun fichier INLINE 

Exemples: 

Pas de programme de demonstration specifique; voir 
utilisation par exemple dans COLANI.LST 

Syntaxe: 

GOSUB gfa_pload_(txt_$,destadr_ %, options_ %) 

Parametres : 


- txt _ $ : 



String contenant le chemin d'acces de l'image a charger ; lib_rv_% 

retoume la valeur 1 lorsque ce fichier s'avere introuvable, et la valeur 0 
lorsque tout se passe bien. 

- destadr_% : 

Adresse-cible de l'image a charger; on peut par exemple entrer ici XBIOS(2) 
lorsque l'on souhaite charger l'image dans la memoire d'ecran, mais il est 
tout a fait possible de charger l'image autre part dans la memoire. 
Rappelez-vous cependant qu'avec Degas/Degas-Elite et Neochrome, vous 
chargez en meme temps l'image et sa palette de couleurs. 

- options _% : 

Flag precisant le format de l'image a charger parmi les trois possibility 
suivantes: 

options_% == 0 : Charger une image Degas/Degas-Elite avec sa palette 

options_% == 1 : Charger une image Neochrome avec sa palette 



>- options_% == 2 : Charger une image 32000 octets (exp : DOODLE ) sans 

Charger de palette de couleurs. 


Valeur retoumee: 
lib_rv _% = 

Code d'erreur ; lib_rv_% retoume la valeur 0 lorsque l'image a bien ete 
chargee et la valeur 1 si le fichier indique n'existe pas ou reste introuvable. 


Description: 

La procedure PLOAD permet de charger des images de format different; 
qui plus est, la palette de couleur est chargee en meme temps que l'image 
elle-meme. 

Vous pouvez charger des images Degas/Degas-Elite, Neochrome ou 32000 
octets. La procedure ne verifie pas si le fichier conceme est bien au format 
indique : cela signifie que, si la taille du fichier est correcte, vous pouvez 
charger n'importe quelle image avec n'importe quelles couleurs. Des 
erreurs peuvent survenir si le fichier s'avere trop petit. Voici la taille des 
images chargeables: 

Degas: 32034 octets 

Degas-Elite: 32066 octets 

Neochrome: 32128 octets 

32000 octets : 32 Ko 

Attention: V 

Cette procedure ne permet pas de charger des images comprimees sous 
Degas ou Degas-Elite. 

Exemple: 

Voir par exemple dans COLANI: 
EXAMPLES\PROGRAMS.LOW\COLANI.LST 



Graphisme: POPPAL 


Utilisation: 

Dossier: 

INLINE: 

Exemples: 

Syntaxe: 

Parametres: 

Aucun 
Valeur retoumee: 

lib_rv_$ = string contenant la palette des couleurs ; la procedure POPPAL 

retoume, dans la variable string lib_rv_$, la palette actuelle des couleurs ; 

le string contient 32 caracteres soit 16 mots 'words' contenant les 16 
couleurs. En haute resolution (ou moyenne), 12 (ou 14) couleurs sont 
inutilisees, ce qui n'est pas bien grave. Si vous recourez a XBIOS(6) / il vous 
faut entrer la palette complete dans les trois resolutions, meme si vous 
n'utilisez en fait que certains registres. 

La palette est retoumee dans le meme format que celui utilise avec la 
routine 6 du XBIOS ou avec la procedure x_CPOFF. 

Description: 

POPPAL vous permet d'identifier la palette des couleurs actuelle, par 
exemple pour la sauvegarder lors du lancement d'un programme et la 
restaurer a la fin a l'aide de XBIOS(6). Vous vous etes certainement deja 
enerve de voir votre bureau GEM devenu jaune-orange (et surtout illisible ) 
apres avoir fait toumer un programme modifiant les couleurs a l'ecran sans 
les restaurer ensuite. POPPAL cermet d'ecrire facilement des nrnvrammps 


Sauvegarder la palette de couleurs actuelle puis la 
recharger. 

GFA GLIB.3_0\GFA_GLIB.ALL\POPPAL. LST 
(quelle que soit la resolution) 

Ne necessite aucun fichier INLINE 

Pas de programme de demonstration specifique; voir 
par exemple dans COLANI.LST. 

GOSUB gfa_poppal_ 



restaurant les couleurs d'origine sans avoir a les consigner dans le detail 
avant de lancer le programme. 

Attention: V 

Avant de recourir a d'autres procedures de notre bibliotheque, pensez a 
passer a une autre variable-string la palette des couleurs contenue dans 

lib_rv_$, car certaines procedures utilisent cette variable et detruiront 

done sont contenu. 

Exemple : Voir par exemple dans COLANI: EXAMPLESNPROGRAMS. 

LOW \ COL ANI. LST 



Graphisme: PSHOW 


Utilisation: 


Dossier: 


INLINE: 
Exemples : 


Syntaxe: 


Scrolling ou defilement d'images ou de 'morceaux' 
d'images ; il est possible d'afficher des images 
completes ou des extraits de type Degas/Degas-Elite, 
Neochrome et 32000 octets. 

GFA_GLIB.3_0\GFA_GLIB.ALL\PSHOW.LST 
(quelle que soit la resolution) 

Ne necessite aucun fichier INLINE. 

EXAMPLES\PROGRAMS.LOW\PSHOW.LST 
(basse resolution) 

EXAMPLES \ PROGR AMS.HIG \ PSHOW. LST 
(haute resolution) 

GOSUB gfa_pshow_(screenadr_%,bufadr_%,txt_$ ; 

char_%,flag_!,options_%) 


Parametres: 

- screenadr % : 


Contient l'adresse de la memoire de l'ecran sur lequel doivent s'afficher les 
images ou extraits d'images. En general, on entre ici XBIOS(2), qui est 
l'adresse de l'ecran actuellement visible. 


- bufadr _ % : 

Adresse d'un buffer de 32300 octets, qui sert a charger l'image et sa palette 
de couleurs sans qu'elles soient encore visibles, pour l'afficher ensuite 
proprement, sans scintillement a l'ecran. 


- txt_$ : 

Bloc des parametres de l'image ; ce string contient toutes les informations 
importantes concemant l'image a afficher. Pour que la procedure PSHOW 



fonctionne correctement, le string text_$ doit respecter un certain format, 

que nous allons detailler ci-dessous. 

Structure de txt $ : 

Octets 1 - 67 : chemin d'acces de la premiere image a afficher en entier ou 
dont on souhaite afficher un extrait. Lorsque le chemin d'acces ne necessity 
pas 67 octets, il faut y ajouter des espaces vides (ASCII 32) pour l’amener a 
67 caracteres. 

Octets 68 - 69 : duree d’affichage de l’image ; cette valeur correspond au 
parametre de l'instruction PAUSE du GfA Basic. La duree de l’affichage est 
cependant toujours plus longue qu'avec l'instruction PAUSE, car un certain 
delai est necessaire pour le chargement et la 'preparation de 1 affichage de 
l'image suivante. 

Octet 70 : type d'image ; cet octet sert a preciser le type de l'image qui va 
etre chargee. 

Valeurs autorisees: 

>- 0 == image Degas/Degas-Elite 
>-1 == image Neochrome 

>- 2 == image en format 32000 octets (suns palette, couleurs ) 

Octet 71 : mode PUT ; cet octet sert a indiquer le mode d'affichage de 
l'image a l'aide de l'instruction PUT (voir procedure POLICE). 

Octets 72-73 : coordonnee X du coin superieur gauche de l’image a afficher. 

Octets 74-75 : coordonnee Y du coin superieur gauche 

Octets 76-77 : coordonnee X du coin inferieur droit. 

Octets 78-79 : coordonnee Y du coin inferieur droit. 

Octets 80-81 : coordonnee X de la position d'affichage du coin superieur 
gauche de l'image 

Octets 82-83 : coordonnee Y de la position d'affichage du coin superieur 
gauche de l'image 



Octets 84-150 : chemin d'acces vers la deuxieme image a afficher ou dont on 
souhaite extraire une partie pour affichage. 

Comme vous le constatez, il convient d'entrer une suite de 83 octets pour 
toute image a afficher, en respectant scrupuleusement la repartition de ces 
83 octets, faute de quoi la procedure ne pourra pas fonctionner 
correctement. 

Vous pouvez ecrire ce string en utilisant les instructions MKI$ et CHR$ du 
GfA Basic, qui genere des strings a partir de nombres sur un ou deux 
octets. 

La procedure PSHOW peut faire defiler un nombre d'images quasiment 
illimite, qu'elle peut denombrer en se fiant a la longueur du string txt $. 
puisque ce dernier s'accroit de 83 octets a chaque image. La longueur du 
string doit done toujours etre un multiple de 83. 

La variable lib_rv_% (code d'erreur ) retoume la valeur 1 lorsque la 

procedure repere une longueur de string incorrecte ou un string vide 
(se composant de caracteres 0), et la valeur 0 lorsque tout se deroule 
correctement. 

- char _ % 

code-touche de la touche d'interruption du processus : vous indiquez ici le 
code ASCII d'une touche sur laquelle l'utilisateur devra appuyer pour 
interrompre le defilement des images. Une fois la procedure lancee, le 
programme reste dedans jusqu'a ce que la touche en question soit appuyee. 

Attention: V 

Evitez d'entrer ici le code ASCII d'un caractere ou d'un signe inaccessible 
par le clavier ! Ne vous etonnez pas non plus de ce que l'execution de la 
procedure ne s'interrompe pas immediatement apres un appui sur la 
touche designee, car la procedure termine d'abord d'afficher l'image 
chargee avant de prendre fin : cependant, meme s'il ne reagit pas 
immediatement, il suffit d'un seul appui sur la touche en question pour 
interrompre l'execution de la procedure. 




" fl a 8 —■ 

Ce flag sert a preciser si l'ecran doit se vider entierement ou non avant de 
passer a l’affichage suivant : il est done possible soit de provoquer un 
enchainement bien delimite des images ou de faire monter la nouvelle 
image sans effacer l'ancienne (sorte de fondu-enchaine). 

>- flag!_== TRUE = vider l'ecran entre chaque affichage 

^ flag!_ == FALSE = ne pas vider l'ecran 

-options_% : 

Ce parametre peut servir a influencer la duree du defilement des images, 
puisqu'il peut prendre les valeurs suivantes : 

>• options _% == 0: 

Le defilement des images toume dans une boucle sans fin, et ne peut etre 
interrompu que par un appui sur la touche indiquee sous 'char—%' 

>- options _% < 0 : 

lorsque options_%' reqoit une valeur negative, toutes les images viennent 

s'afficher une seule fois a l'ecran, sans que 1 on puisse interrompre ce 
defilement en appuyant sur la touche designee sous char—% : tout appui 
sur cette touche sera ignore par le programme. Le defilement prend fin une 
fois que toutes les images ont ete affichees. 

>■ options _% > 0: 

lorsque 'options_%' reqoit une valeur positive, toutes les images s'affichent 
une fois h l'ecran, mais il est possible d'interrompre leur defilement en 
appuyant sur la touche designee sous char_%. 

Valeur retoumee: 

lib_rv_% = code d'erreur ; lib_rv_% retourne la valeur 1 lorsque le bloc 

des parametres text_% n'est pas correct (longueur egale a 0 ou non-multiple 

de 83) et la valeur 0 lorsque tout se deroule correctement. 



Description: 


La procedure PSHOW vous permet de faire defiler plusieurs images l'une a 
la suite de l'autre. Non seulement vous pouvez melanger des images de 
type different, mais vous pouvez aussi afficher des morceaux d'une image a 
differents endroits de votre ecran. 


Qui plus est, vous pouvez influencer le mode d'affichage de chaque image, 
et faire varier la duree d'affichage image par image. 

Exemple: EXAMPLES\PROGRAMS.LOW\PSHOW.LST 


MERGE : GFA_GLIB.3_0\GFA_GLIB.ALL\PSHOW.LST 
GFA_GLIB .3_0 \ GFA_G LIB. ALL \POPPAL. LST 


INLINE bufadr %,32300 


Buffer pour le 26me 6cran 


GOSUB gfa_poppal_ 

palette$=lib_rv_$ 

pblock$="" ! 6crire le string des param^tres 

d'image 

RESTORE parameterblock 
READ path$ 

WHILE path$<>"FIN" 

pblock$=pblock$+path$+SPACE$(67-LEN(path$)) 

READ speeds,typ|,pmode|,xls,yls,x2s,y2s,x3s,y3s 
pblock$=pblock$+MKI$(speeds) ! dur6e de l'affichage 

pblock$=pblock$+CHR$(typ|) ! type d 1 image 

pblock$=pblock$+CHR$(pmode|) ! mode PUT pour les extraits d'image 

pblock$=pblock$+MKI$(xlS)+MKI$(yis) ! coin sup. gauche de l'extrait 
pblock$=pblock$+MKI$(x2s)+MKI$(y2s) ! coin inf. droit 
pblock$=pblock$+MKI$(x3s)+MKI$(y3S) ! position de l'affichage 
READ path$ 

WEND 


ALERT 1," Pour sortir de | la demonstration | appuyez sur 'a' 
M," START", button | 

l 

GOSUB gfa_j>show_(XBIOS(2),bufadr_%,pblock$,ASC("a") ,TRUE, 0) 


~XBI0S(6,L :V :palette$) 



parameterblock : 

DATA \EXAMPLES\STUFF\DEMO.PIl,150,0,3,00,00,319,199,000,000 
DATA \EXAMPLES\STUFF\DEMO.PIl,100,0,3,80,50,239,149,080,050 
DATA \EXAMPLES\STUFF\DEM0.PI1,200,0,3,80,50,239,149,000,000 
DATA \EXAMPLES\STUFF\DEMO.PIl,150,0,3,80,50,239,149,160,000 
DATA \EXAMPLES\STUFF\DEMO.PIl,100,0,3,80,50,239,149,160,100 
DATA \EXAMPLES\STUFF\DEMO.PIl,050,0,3,80,50,239,149,000,100 
DATA \EXAMPLES\STUFF\DEMO.PIl,000,0,3,00,00,319,035,000,082 
DATA FIN 

On commence par installer, a l’aide de INLINE, le buffer de 32300 octets 
necessaire avec PSHOW, qui servira de deuxieme ecran. 

POPPAL nous permet ensuite de sauvegarder la palette actuelle des 
couleurs, apres quoi nous ecrivons le string contenant les parametres 
d'image. Vous pouvez prendre exemple sur le petit programme ci-dessus, 
qui vous montre une des methodes possibles pour ecrire facilement ce 
string et le faire varier par de legeres modifications dans les lignes DATA. 
Notez que notre chemin d’acces vers l'image compte moins de 67 octets, et 
que nous le completons done par des espaces vides : 


SPACE$(67-LEN (path$)) 

Dans notre demonstration, nous ne nous servons que d'une seule image 
(DEMO.PI1), dont nous affichons tour a tour differents extraits, mais nous 
pourrions naturellement faire defiler successivement plusieurs images 
differentes. 

Une fois le bloc des parametres ecrit nous utilisons une boite de dialogue 
(alertbox) pour signaler a l'utilisateur qu'il peut mettre fin au defilement 
des images en appuyant sur la touche 'a'. 

Ceci etant, nous lanqons la procedure PSHOW, dont l'execution ne 
s'arretera que par un appui sur la touche 'a' (options—% = 0). 

Avant de ressortir de notre programme, nous prenons soin de restaurer 
l'ancienne palette de couleurs. 



Graphisme : INTANI 


Utilisation: 

Dossier: 

INLINE: 


Animation d'une partie de l'ecran (de taille variable) 
sous interruption. 

GFA_GLIB.3_0\GFA_GLIB.ALL\INTANI.LST 
(quelle que soit la resolution) 

GFA_GLIB.3„0\GFA_GLIB.ALL\INTANI.INL 


Exemples: EXAMPLES\PROGRAMS.ALL\INTANI.LST 

Syntaxe : GOSUB gfa_intani_(x_%,y_%,width_%,height_%, 

speed_%,cnt_%,sourceadr_%,options_%) 


Parametres: 

- x %: 


Coordonnee X correspondant au coin superieur gauche de la partie de 
l'ecran a animer ; cette valeur doit etre un multiple de 16, et il convient de 
respecter les valeurs minimales et maximales que voici: 

>■ En basse resolution : 0 - 304 

>• En moyenne resolution : 0 - 624 
>■ En haute resolution : 0 - 624 


-y—%: 


Coordonnee Y correspondant au coin superieur gauche de la partie de 
l'ecran a animer ; il convient de ne pas depasser les valeurs minimales et 
maximales que voici: 

>■ En basse resolution : 0-199 

>■ En moyenne resolution : 0 -199 
>■ En haute resolution : 0 - 399 

Faites particulierement attention a ne pas entrer des coordonnees situees 
au-dela des limites possibles de l'ecran, faute de quoi vous auriez quelques 
surprises desagreables. 




- width % : 


Largeur du secteur d'ecran dans lequel se produit l'animation; cette largeur 
doit aussi etre un multiple de 16, et etre mesuree en pixels. 

- height _ % : 

Hauteur du secteur d'ecran dans lequel se produit 1 animation, mesuree en 
lignes de pixels ; pour que l'animation se deroule correctement, il faut 
evidemment que ses donnees entrent dans la largeur et la hauteur 
indiquees. 

- speed _% : 

Vitesse de defilement des images de l’animation ; vous indiquez ici le delai 
apres lequel une nouvelle image vient remplacer l'ancienne ; l'animation 
fonctionne exactement comme un dessin anime, et revient a faire defiler 

une suite d'images fixes, speed_% sert a preciser le delai qui s ecoule entre 

l'affichage de deux images consecutives. 

- cnt _% .* 

Nombre d'images composant l'animation ; ce nombre doit avoir une valeur 
inferieure d'une unite au nombre reel d'images et vous devez par exemple 
entrer le nombre 11 pour une animation faisant defiler 12 images. 
Attention, une animation doit comprendre au moins une image 

(cnt_% = 0), ce qui d'ailleurs vous donnera une image fixe. II est interdit 

d'entrer ici une valeur negative! 

cnt_% Doit etre compris entre 0 et 65535. 

- sourceadr _% : 

Adresse des donnees mises en oeuvre par l'animation ; sous cette adresse 
doivent se trouver, dans la memoire vive, les images composant 
l'animation. Chacune de ces images doit respecter les indications de taille 

(largeur et hauteur) entrees sous width_% et height_% ainsi que le format 

correspondant au degre de resolution de l'ecran. 

Les lignes de donnees d'une image sont entrees 1 une derriere 1 autre. La 
methode la plus simple pour preparer une image consiste a recourir a 



l'instruction GET du GfA Basic, qui sert precisement a inscrire sous forme 
de string dans la memoire vive, les donnees correspondant a une image., 

Comme l'animation consiste a faire defiler plusieurs images, il convient 
alors de relier plusieurs strings pour que les images soient enregistrees 
consecutivement dans la memoire centrale. Attention : lorsque l'on utilise 
l'instruction GET, celle-ci intercale six octets avant les donnees proprement 
dites, octets qu'il convient d'eliminer (en recourant par exemple a 
l'instruction RIGHTS) avant de relier les strings par l'operateur'+'. 

II faut que vous sachiez que cette methode ne donne pas des resultats 
irreprochables et qu'il serait preferable de proceder autrement a chaque fois 
que c'est possible. En effet, cette methode presente un inconvenient majeur : 
apres avoir relie les strings entre eux, vous ne pouvez plus les afficher a 
l'aide de l'instruction PUT ni les reprendre dans des operations de 
manipulation de texte ; qui plus, vous etes alors limite par la capacite 
maximale admise pour un string d'un seul tenant, qui est de 32767 octets. 

options _% : 

Code de commande qui permet de lancer ou d'arreter l'animation : 

>■ options_ % == 0 : arreter l'animation 

>■ options_% <> 0 : lancer l'animation 

Attention: V 

vous ne pouvez arreter l'animation que si vous l'avez lancee auparavant. 
Veillez en tout cas a bien arreter l'animation a la fin du texte de votre 
programme, faute de quoi elle se poursuivrait au niveau du bureau GEM ce 
qui provoquerait un plantage du systeme. 

Tous ces parametres (en dehors de options_%) sont ignores lorsque vous 

appelez INTANI pour mettre fin a une animation en cours, si bien que vous 
pouvez leur donner une valeur quelconque. 

Valeur retoumee: 

lib_rv_% = code d'erreur ; lib_rv_% retoume la valeur -1 lorsque vous 

oubliez de charger le fichier INLINE accompagnant INTANI et la valeur 0 
lorsque l'execution du module se deroule normalement. 




Description: 

Le module INTANI vous permet de creer des animations d'images 
toumant sous interruption, sur une portion de votre ecran. Ces animations 
ressemblent a des dessins animes, puisqu'elles consistent a faire defiler des 
images ou des morceaux d'images sur une portion donnee de 1 ecran, ce qui 
peut donner une impression de mouvement. 

Une fois la demiere image affichee, le module enchaine en revenant sur la 
premiere image. Toutes les images viennent s'afficher sur la meme partie de 
l'ecran, INTANI ne vous permettant pas de 'promener' la meme image a 
des endroits differents de l'ecran (exemple : la soucoupe volante parcourant 
l'ecran). Ce module est particulierement recommande pour animer des 
images d'en-tete assez complexes. 

Exemple : EXAMPLES\PROGRAMS.ALL\INTANI.LST 

MERGE : GFA_GLIB.3_0 \GFA_GLIB.ALL\INTANI/LST 

PRINT AT(1,1) ;"BM BM BM" ! Affichage des images de 

PRINT AT(1,2) BM BM BM" ! 1'animation 4 l'6cran 

PRINT AT(1,3) ;"BM BM BM" 

PRINT AT (1,4) BM BM BM" 

PRINT AT(1,5) ;"BM BM BM" 

PRINT AT (1,6) BM BM BM" 

PRINT AT(1,7) ;"BM BM BM" 

PRINT AT (1,8) BM BM BM" 

BOX 0,0,63,63 
BOX 64,0,127,63 

GET 0,0, 63,63,donneesl$ ! P°ur cr6er les donnees 

GET 64,0,127,63,donnees2$ ! correspondent 4 l'animation 

donnees1$=donnee s1$ +RIGHT $(donnee s 2 $,LEN(donnee s 2 $)-6) 

I 

GOSUB gfa_intani_(16,130,64,64,40,1,V :donnees1$+6,1) 

l 

ALERT 2," | stopper | l'animation? | ",1," OUI ", button| 

I 

GOSUB gfa_intani_(0,0,0,0,0,0,0,0) 

Nous commengons par creer un modele tres simple a l'ecran, qui va nous 
servir a engendrer les deux petites images de cette animation ; nous 
utilisons Instruction GET pour transformer ces deux images en deux 




Graphisme: 

Utilisation: 


Dossier: 


INLINE: 


Exemples: 


Syntaxe: 


L SHAP16M SHAP16H SHAP16 


Creer des sprites ('shape') d'une largeur de 16 pixels et 
d'une hauteur maximale de 200 pixels (L_SHAP16 et 
M_SHAP16) ou de 400 pixels (H_SHAP16). 

GFA_GLIB.3J)\GFA_GLIB.LOW\L_SHAP16.LST 
(basse resolution) 

GFA_GLIB.3_0\GFA_GLIB.MED\MJSHAP16.LST 
(moyenne resolution) 

GFA GLIB.3„0\GFA_GLIB.HIG\H_SHAP16.LST 
(haute resolution) 

GFA_GLIB.3_0\GFA_GLIB.LOW\L SHAP16.INL 
(L_SHAP16.LST) 

GFAGLIB.3J)\GFA_GLIB.MED\M_SHAP16.INL . 
(M_SHAP16.LST) 

GFA_GLIB.3_0\GFA_GLIB.HIG\H_SHAP16.INL 
(HSHAP16.LST) 

EXAMPLES \ PROGRAMS. LOW \ L_SH API 6. LST 
(basse resolution) 

EXAMPLES\PROGRAMS.HIG \ H SHAPI 6.LST 
(haute resolution) 

GOSUB gfa_l_shapl6_(x_%,y_%,options_ %, 

rows_%,screenadr_%,bufadr_%,memadr_%) 

GOSUB gfa_m_shapl6._(x_%,y_%,options_ %, 

rows_% / screenadr_%,bufadr_%,memadr_%) 

GOSUB gfa_h_shapl6_(x_%,y_%,options_ %, 

rows_%,screenadr_%,bufadr_%,memadr_%) 



Parametres: 


- *__% : 

Coordonnee X de l'endroit ou doit venir s'afficher le shape (sprite 
graphique). Celui-ci peut prendre n'importe quelle position de coordonnee 
X, ce qui revient a dire qu'il peut aussi 'sortir' partiellement ou 
completement de l'ecran. 


-y—%: 


Coordonnee Y de l'endroit ou doit venir s'afficher le sprite ; la aussi, il peut 
prendre n'importe quelle position, mais il convient de veiller a ce qu'il ne 
sorte pas du tout (ni partiellement ni completement) du bord superieur et 
inferieur de l'ecran, faute de quoi l'utilisateur serait amene a ecrire dans la 
memoire en-dessous ou au-dessus de l'ecran. 

Si cela s'avere vraiment indispensable, il est cependant possible de faire 
franchir le bord superieur de l'ecran au sprite, en adaptant en consequence 

l'adresse de debut de ses donnees ( memadr _%) ainsi que sa hauteur 

(raws _%). Par exemple, lorsque seules les dix demieres lignes composant 

un sprite doivent rester visibles, il faut indiquer sous memadr_% l'adresse 

des donnees correspondant a cette dixieme ligne et entrer 10 sous rows_%. 

Pour calculer 'memadr_%', on peut recourir aux formules suivantes : 

>■ basse resolution: 

memadr_% = Adresse de debut des donnees + 8 * numero de la 

premiere ligne du sprite 

moyenne resolution: 

memadr % = Adresse de debut des donnees + 4 * numero de la 
premiere ligne visible du sprite 


>- haute resolution : 

memadr_% = Adresse de debut des donnees + 2 * numero de la 

premiere ligne visible du sprite 

Notez que la premiere ligne du sprite porte le numero zero. 



strings que nous allons relier en veillant a eliminer les six octets figurant au 
debut du deuxieme string puisqu'ils ne contiennent aucune information 
relative a l'image elle-meme. Nous obtenons ensuite un string unique, 
reunissant les donnees relatives a nos deux images, enregistrees dans la 
memoire directement a la suite l'une de l'autre. 

Nous appelons alors le module INTANI ; l'animation doit venir s'afficher 
sur la portion d'ecran delimitee par x_%,y_% (16,130), les images ayant 
une hauteur de 64 pixels et une largeur de 64 pixels. Remarquez que nous 
avons pris soin d'enregistrer une image de 64 x 64 pixels lorsque nous 
avons fait par deux fois appel a l'instruction GET, pour que les donnees de 
notre animation aient le bon format. 

Nous avons choisi une vitesse (speed_%) de 40, tandis que le nombre 

d'images est represente par cnt_%=1 puisque nous ne jouons que sur deux 

images (cnt_% = nombre d'images -1). 

Sourceadr_% contient l'adresse des donnees de la premiere image ; il 

convient d'ignorer les 6 premiers octets puisque nous ne les avons 
retranches que du string de la deuxieme image. 

Le parametre 'options_ %' est mis sur 1 pour que l'animation puisse etre 

lancee. Elle toume alors jusqu'a ce que le module INTANI soit relance mais 
avec le parametre 'options' mis sur 0. II est possible d'executer d'autres 
instructions du GfA Basic pendant que l'animation tourne. Dans notre petit 
programme de demonstration, on se limite a attendre un clic sur le bouton 
'OUT de la boite de dialogue : le module INTANI est alors appele pour 
mettre fin a l'animation et au programme de demonstration. 



Lorsque 1 g sprite doit pouvoir franchir le bord inferieur do 1 ecran, il suffit 
d'adapter la valeur de rows_% et d'indiquer le nombre de lignes du sprite 
qui restent effectivement visibles. 

- options _% 

Ce code de commande options_% precise si le sprite doit s'afficher ou 

disparaitre de l'ecran, selon le code suivant: 

>- options_% == 0 : sauver l'arriere-fonds et afficher le sprite 

>- options_% <> 0 : restaurer l'arriere-fonds et faire disparaitre le sprite 

Attention: V 

II faut veiller a ce que le sprite se soit bien affiche avant de restaurer 
l'arriere-fonds (et non l'inverse) ; qui plus est, vous pouvez utiliser autant 
de sprites que vous voulez (seule limite : la capacite de la memoire) mais 
vous devez veiller a ce que le dernier sprite apparu soit aussi le premier 
efface ; faute de quoi l'arriere-fond ne sera pas restaure correctement 
(principe dit LIFO' = Last In First Out = le dernier entre sera le premier a 
sortir). 

- rows _% 

Hauteur du sprite,, mesuree en lignes-pixels ; la hauteur maximale toleree 
depend du degre de resolution de l'ecran : 

>- basse resolution : 1 - 200 lignes 

>- moyenne resolution : 1 - 200 lignes 
>- haute resolution : 1- 400 lignes 

- screenadr _% : 

Adresse d'ecran; il convient d'indiquer ici l'adresse de debut de la memoire 
d'ecran, qui correspond generalement a XBIOS(2). 

Pour que le sprite n'ait pas l'air de trembloter, il est recommande de 
travailler avec deux ecrans : pendant qu'une des images s affiche a 1 ecran, 
l'ordinateur elabore l'image suivante (invisible car se trouvant dans la 
memoire). Une fois ce processus termine, la deuxieme image vient prendre 
la place de la premiere a l'ecran etc... Cela permet d'eviter le phenomene de 



scintillement ou de tremblement qui resulterait de l'affichage et de la 
disparition d'un ou plusieurs sprites directement a l'ecran. 

C'est pourquoi il est possible ici d'entrer une deuxieme adresse 
correspondant a un deuxieme ecran : le sprite s'elabore d'abord sur ce 
deuxieme ecran invisible et non directement a l'ecran (ne pas oublier d'en 
profiter pour recopier ce contenu d'ecran). 

- bufadr _ % : 

Vous devez entrer ici l'adresse d'un buffer suffisamment important pour 
pouvoir contenir l'arriere-plan recouvert par le sprite. Ce buffer est 
indispensable, car le principe meme du module 'shape' consiste a 
sauvegarder dans un buffer le secteur d'ecran qui va etre recouvert par le 
sprite avant que ce dernier ne s'affiche. Cet arriere-plan est restaure des que 
le sprite se deplace, le processus se repetant ensuite etc etc... 

Voici des formules vous permettant de calculer la taille que doit avoir au 
minimum le buffer en question, vous ne devez en aucun cas lui attribuer 
une taille inferieure: 

>■ basse resolution : taille du buffer = rows %* 16 + 4 

>■ moyenne resolution : taille du buffer = rows__% * 8+4 

>■ haute resolution : taille du buffer = rows % * 4+4 

Lorsque vous vous servez de plusieurs sprites, il convient d'installer un 
buffer pour chacun d'entre eux. 

- memadr _ % : 

Adresse des donnees correspondant au sprite : c'est la fagon la plus simple 
de creer un sprite, de le 'teindre' de differentes couleurs puis de l'afficher a 
l'ecran. En GFA" Basic, il suffit de recourir a l'instruction GET 
x,yl,x+15,y2,shape$ pour inscrire ces donnees dans un string (shape$) : les 
donnees du sprite sont ainsi directement chargees en memoire dans le bon 
format (la ou se trouve le string). 

Voici la formule permettant de calculer memadr_% : 


memadr %=V:shape$+6 



II est indispensable d'additionner 6, car le GfA Basic enregistre la hauteur et 
la largeur du secteur ainsi que le nombre de plans binaires devant les 
donnees proprement dites. 

Si vous utilisez cette methode, faites bien attention a ce que le secteur lu a 
l'aide de l'instruction GET ait effectivement une largeur de 16 pixels, ni 
plus, ni moins. 

- sourceadr _ % : 

Adresse du masque du sprite ; vous n'entrez ce parametre que dans la 

procedure H_SHAP16 (haute resolution). La variable sourceadr_% 

contient l'adresse de debut d'un masque de sprite ; en haute resolution, ce 
masque sert a preciser quels secteurs de l'arriere-plan sont purement et 
simplement recouverts par le sprite et quels secteurs sont par contre 
visibles par 'transparence'. 

La structure de ce masque ressemble fortement a celle du masque de la 
fleche de la souris, que vous creez en GfA Basic a l'aide de l'instruction 
DEFMOUSE. 

Le masque du sprite prend exactement la meme taille que le sprite lui- 
meme et peut aussi venir s'inscrire dans un string (done en memoire) en 
utilisant l'instruction GET. Tout point du sprite (qu'il soit blanc ou noir) 
appele a recouvrir et dissimuler l'arriere-plan doit etre identifie dans le 
masque par un bit vrai (1) ; par contre, les points devant laisser 
transparaitre l'arriere-plan seront identifies par des bit faux (0). 

Vous trouverez dans le dossier EXAMPLESXSTUFF une image DEMO.PIC 
vous montrant l'aspect que peut prendre un sprite et son masque. Ce 
dossier contient 40 objets graphiques pouvant servir de sprite, flanques de 
leur 40 masques. 

La disquette contient aussi un programme de demonstration pour les 
moniteurs haute-resolution 

(voir EX AMPLESX PROGRAMS.HIG \H_SHAPI 6.LST). 

Tout cela suffit pour vous faire comprendre concretement comment 
fonctionne cette procedure 'shape'. 



Valeur retoumee: 
libjrv _% = code d'erreur 

lib_rv_ % retoume la valeur -1 lorsque vous oubliez de charger le fichier 

INLINE accompagnant la procedure et 0 lorsque tout se deroule 
normalement. 

Description: 

Les modules L_SHAP16, M_SHAP16 et H_SHAP16 vous permettent de 
creer des sprites d'une largeur de 16 pixels ; contrairement aux limites 
imposees par l'instruction SPRITE, ceux-ci peuvent ici prendre quasiment 
n'importe quelle hauteur et contenir toutes les couleurs offertes par le degre 
de resolution caracterisant le moniteur. 

Attention: V 

Souvenez-vous qu'il convient d'entrer un parametre de plus lorsque vous 

utilisez H_SHAP16 (sourceadr_%) ; ce parametre indique l'adresse du 

masque du sprite, qui n'est pas engendre automatiquement par le module 
contrairement a ce qui se passe sous L_SHAP16 et M_SHAP16. 

Comme l'utilisation d'un tel sprite joue beaucoup sur les delais d'affichage, 
il est sans doute avantageux d'appeler immediatement la routine en 
assembleur. Ceci accelere considerablement le processus et rend l'affichage 
du sprite plus 'souple' puisqu'on peut omettre de sauvegarder l'arriere- 
plan. C'est de plus interessant lorsque l'on souhaite restaurer l'arriere-plan 
en le faisant varier (par exemple au moyen d'une animation). 

Voici dans ce cas la syntaxe pour lancer LSHAP16 : 

~C : l_shapl6mc_% (x_%,y_%,options_%,rows_%, L :screenadr_%, 

L : bufadr_%,L : memadr_%) 

pour lancer M_SHAP16: 


~C : m_shapl6mc_% (x_%,y_%,options_%,rows_%, L :screenadr_%, 

L : bufadr_%,L : memadr_%) 


et pour lancer H_SHAP16 : 



~C : h_shapl6mc_% (x_%,y_%,options_%,rows_%,L :screenadr_%, 

L : bufadr_%,L : memadr_%) 

Les parametres sont exactement les memes que lorsque vous lancez la 
procedure, a l'exception de options_%, qui peut prendre les valeurs 
suivantes: 

>* options_% == 0 : GETBACK, sauvegarder l'arriere-plan 

>- options_% == 1: PUTBACK, restaurer l'arriere-plan 

>- options_% == 2 : SETSHAPE, activer le sprite. 

Toute autre valeur sera ignoree ; void done la succession logique pour 
activer un sprite et le faire disparaitre : 

>- D'abord options_% = 0 ==> GETBACK 

>• Ensuite options_% = 2 ==> SETSHAPE 

>■ Enfin options_% = 1 ==> PUTBACK 

Ce qui nous donne trois appels en tout, mais il est possible de laisser 
tomber GETBACK et PUTBACK lorsqu'on veut restaurer l'arriere-fond en 
le modifiant. 

Attention: V 

PUTBACK ne doit en principe intervenir qu'apres un appel de GETBACK. 

Notez cependant que, pour qu'il soit possible de lancer directement le 
module SHAPE, il faut des le debut du programme prevoir le lancement de 
ce module. En clair : avant de lancer la routine en assembleur a l'aide de la 
commande ~C :... il faut avoir appele au moins une fois le module en 
recourant a l'instruction GOSUB, faute de quoi l'adresse start de la routine 

en assembleur (l_shapl6mc_%, m_shapl6mc_%,h_shapl6mc_%) est 

encore sur 0 et l'appel direct mene tout droit a une erreur de 
bus'BUSERROR' (deux petites bombes a l’ecran!).Une fois le module 
charge, l'adresse start de la routine en assembleur est precisee, et vous 
pouvez done la lancer a l'aide de ~C : 

Exemple: EXAMPLES\PROGRAMS.LOW\L_SHAP16.LST 



MERGE: GFA_GLIB.3_0\GFA_GLIB.LOW\L_SHAP16.LST 

GFA_GLIB.3_0\GFA_GLIB.ALL\PLOAD.LST 

GFA_GLIB.3_0\GFA_GLIB.ALL\POPPAL.LST 

1 Dimensionner le buffer pour sauvegarder 

1 L'arriAre-plan derri&re le sprite 

INLINE bufadr_%,2 60 

1 

GOSUB gfa_poppal_ 

Palette$=lib_rv_$ 

GOSUB gfaj>load_("\EXMPLES\STUFF\DEMO.PH",XBIOS(2) ,0) 

I 

GET 0,136,15,151,shape$ linscrire le sprite dans un string 

ALERT 2,"Appuyez sur une |touche quelconque pour|interrompre la 

d£mo",1,"Start",button| 

x&=0 

yfi=136 

xi&=l 

yi&=-l 

HIDEM 

REPEAT 

i 

GOSUB gfa_l_shapl6_(xS,yS, 0,16,XBIOS(2) ,bufadr_%,V:shape$+6) 

ADD x&,xi& 

ADD y&,yi& 

IF x&>293 OR x&< 1 
MUL xi&,-l 
ENDIF 

IF yfi>183 OR y&<124 . 

MUL yi&,-l 
ENDIF 
VSYNC 

GOSUB gfa_l_shapl6_(0,0,1/16,XBIOS (2) ,bufadr_%,V:shape$+6) 

1 

UNTIL INKEY$<>"" 

SHONM 

-XBIOS(6,L :V:palette$) 



A l'aide de INLINE, nous commenqons par creer un buffer destine a 
recevoir le contenu de l'arriere-plan et nous calculons sa taille a l'aide de la 
formule indiquee ci-dessus. Comme notre sprite a une hauteur de 16 lignes, 
nous multiplions la constante 16 par 16, et nous ajoutons 4. 

Une fois le buffer installe et son adresse de debut determinee (bufadr_%), 

nous sauvegardons la palette actuelle des couleurs a l'aide du module 
POPPAL, dans la variable-string palette$. Nous chargeons alors l'image 
Degas DEMO.PI1 ainsi que sa palette de couleurs a l'aide du module 
PLOAD. L'image sert ici de graphique d'arriere-plan. 

L'instruction GET du GfA Basic nous permet d'inscrire dans le string 
shape$ un secteur d'ecran de 16 x 16 pixels, secteur qui va nous servir pour 
notre sprite. Apres avoir repondu par l'affirmative a la demande de 
confirmation s'affichant a l'ecran, nous fixons les coordonnees se rapportant 
au premier appel de L_SHAP16 et nous entrons dans une boucle 
REPEAT... UNTIL. 

A l'interieur de cette boucle, nous commenqons par afficher le sprite, ce qui 
provoque automatiquement la sauvegarde de l'arriere-plan (Attention! si 
vous appelez directement la routine en assembleur, la sauvegarde de 
l'arriere-plan ne se fait pas automatiquement, il faut ajouter un appel 
supplemental). 

Lors de ce premier appel de L_SHAP16, options_% est sur 0, et nous 

entrons XBIOS(2) comme adresse d'image, si bien que le sprite va 
immediatement s'afficher sur l'ecran actuellement visible. Nous avons 
donne bufadr % comme adresse du buffer. L'adresse des donnees du 
sprite (memadr_%) a ete calculee par V: shape$+6. 

Nous calculons alors les nouvelles coordonnees et effagons le sprite 
(restauration de l'arriere-plan qui reapparait) : comme nous n'avons plus 
besoin des coordonnees a ce stade la, nous avons mis sur 0 les parametres 
x_% et y_%. 

Ce processus (affichage/disparition du sprite) se repete sans arret jusqu'a 
ce que l'utilisateur l'interrompe en appuyant sur une touche quelconque. 
Lorsque ceci se produit, les couleurs d'origine reapparaissent (XBIOS 6) et 
le programme de demonstration prend fin. 

Comme l'affichage et la disparition du sprite se produisent directement sur 
l'ecran en cours (ecran visible), nous utilisons l'instruction VSYNC du GfA 



Basic juste avant le troisieme appel de L_SHAP16 pour reduire l'effet de 
tremblement ou de scintillement. 





Graphisme : L_SHAP32 M_SHAP32 H_SHAP32 


Utilisation: 


Dossier: 


INLINE: 


Exemples: 


Syntaxe: 


Creer des sprites ('shape') d'une largeur de 32 pixels et 
d'une hauteur maximale de 200 pixels (L_SHAP32 et 
M_SHAP32) ou de 400 pixels (H_SHAP32). 

GFA_GLIB.3_0\GFA_GLIB.LOW\L_SHAP32.LST 
(basse resolution) 

GFA_GLIB.3_0\GFA_GLIB.MED\M_SHAP32.LST 
(moyenne resolution) 

GFAjGLIB3_0\GFA_GLIB.HIG\H_SHAP32.LST 
(haute resolution) 

GFA_GLIB.3_0\GFA_GLIB.LOW\L_SHAP32.INL 
(L_SH AP32 .LST) 

GFA_GLIB.3_0\GFA_GLIB.MED\M_SHAP32.INL 

(M_SHAP32.LST) 

GFA_GLIB.3_0\GFA_GLIB.HIG\H_SHAP32.INL 

(H_SHAP32.LST) 

EXAMPLES\PROGRAMS.LOW\L_SHAP32.LST 
(basse resolution) 

EXAMPLES\PROGRAMS.HIG\H_SHAP32.LST 
(haute resolution) 

GOSUB gfa_l_shap32_(x_%,y_%,options_%, 

rows_%,screenadr_%,bufadr_% / memadr_%) 

GOSUB gfa_m_shap32_(x_%,y_%,options_%, 

rows_%,screenadr_%,bufadr_%,memadr_%) 

GOSUB gfa_h_shap32_(x_ %,y _%,options_ %, 

rows_%,screenadr_%,bufadr_%,memadr_%) 



Parametres: 


-x_% : 

Voir L_SHAP16 et M_SHAP16. 

- y_%; 

Coordonnee Y de l'endroit ou doit venir s'afficher le sprite ; la aussi, il peut 
prendre n'importe quelle position, mais il convient de veiller a ce qu'il ne 
sorte pas du tout (ni partiellement ni completement) du bord superieur et 
inferieur de l'ecran, faute de quoi l'utilisateur serait amene a ecrire dans la 
memoire en-dessous ou au-dessus de l'ecran. 

Si cela s'avere vraiment indispensable, il est cependant possible de faire 
franchir le bord superieur de l'ecran au sprite, en modifiant en consequence 

l'adresse de debut de ses donnees (memadr_%) ainsi que sa hauteur 

(rows_%). Par exemple, lorsque seules les dix demieres lignes composant 

un sprite doivent rester visibles, il faut indiquer sous memadr_% l'adresse 

des donnees correspondant a cette dixieme ligne et entrer 10 sous rows_%. 

Pour calculer 'memadr_%on peut recourir aux formules suivantes : 

>- basse resolution : memadr_% = adresse de debut des donnees 

+ 16 * numero de la premiere ligne du sprite 

>- moyenne resolution : memadr_ % = adresse de debut des donnees 

+ 8 * numero de la premiere ligne visible du 
sprite 

>■ haute resolution : memadr % = adresse de debut des donnees 

+ 4 * numero de la premiere ligne visible du 
sprite 

Notez que la premiere ligne du sprite porte le numero zero. 

Lorsque le sprite doit pouvoir franchir le bord inferieur de l'ecran, il suffit 

d'adapter la valeur de rows_% et d'indiquer le nombre de lignes du sprite 

qui restent effectivement visibles. 

>• options _% : voir L_SHAP16, M_SHAPE16 
>■ rows _% : voir L_SHAP16, M_SHAPE16 



>- screenadr_% : voir L_SHAP16, M_ SHAPE16 

- bufadr _% : 

Vous devez entrer ici l'adresse d'un buffer suffisamment important pour 
pouvoir contenir l'arriere-plan recouvert par le sprite. Ce buffer est 
indispensable, car le principe meme du module 'shape' consiste a 
sauvegarder dans un buffer le secteur d'ecran qui va etre recouvert par le 
sprite avant que ce dernier ne s'affiche. Cette arriere-plan est restaure des 
que le sprite se deplace, le processus se repetant ensuite etc etc. 

Voici des formules vous permettant de calculer la taille que doit avoir au 
minimum le buffer en question, vous ne devez en aucun cas lui attribuer 
une taille inferieure: 

>• basse resolution : taille du buffer = rows_% *24 + 4 

>- moyenne resolution : taille du buffer = rows„% *12 + 4 
>• haute resolution : taille du buffer = rows_% *6 + 4 

Lorsque vous vous servez de plusieurs sprites, il convient d'installer un 
buffer pour chacun d'entre eux. 

- memadr _% : 

Adresse des donnees correspondant au sprite : c'est la fac;on la plus simple 
de creer un sprite, de le 'teindre' de differentes couleurs puis de l'afficher a 
l'ecran. En GfA Basic, il suffit de recourir a l'instruction GET 
x,yl,x+31,y2,shape$ pour inscrire ces donnees dans un string (shapeS) : les 
donnees du sprite sont ainsi directement chargees en memoire dans le bon 
format (la ou se trouve le string). 

Voici la formule permettant de calculer memadr_% : 

memadr_% = V: shape$+6 

Il est indispensable d'additionner 6, car le GfA Basic enregistre la hauteur et 
la largeur du secteur ainsi que le nombre de plans binaires devant les 
donnees proprement dites. 

Si vous utilisez cette methode, faites bien attention a ce que le secteur lu a 
l'aide de l'instruction GET ait effectivement une largeur de 32 pixels, ni 
plus, ni moins. 



- sourceadr % : 


Adresse du masque du sprite ; vous n’entrez ce parametre que dans la 
procedure H_SHAP32 (haute resolution). La variable sourceadr_% 
contient l'adresse de debut d'un masque de sprite ; en haute resolution, ce 
masque sert a preciser quels secteurs de l'arriere-plan sont purement et 
simplement recouverts par le sprite et quels secteurs sont par contre 
visibles par 'transparence'. 

La structure de ce masque ressemble fortement a celle du masque de la 
fleche de la souris, que vous creez en GfA Basic a l'aide de l'instruction 
DEFMOUSE. Le masque du sprite prend exactement la meme taille que le 
sprite lui-meme et peut aussi venir s'inscrire dans un string (done en 
memoire) en utilisant l'instruction GET. Tout point du sprite (qu il soit 
blanc ou noir) appele a recouvrir et dissimuler l'arriere-plan doit etre 
identifie dans le masque par un bit vrai (1) ; par contre, les points devant 
laisser transparaitre l'arriere-plan seront identifies par des bit faux (0). 

Vous trouverez dans le dossier EXAMPLESXSTUFF une image DEMO.PIC 
vous montrant l'aspect que peut prendre un sprite et son masque. Ce 
dossier contient 40 objets graphiques pouvant servir de sprite, flanques de 
leur 40 masques. 

La disquette contient aussi un programme de demonstration pour 
les moniteur shaute-resolution 

(voir EXAMPLES\PROGRAMS.HIG\H3HAP32.LST). 

Tout cela suffit pour vous faire comprendre concretement comment 
fonctionne ce module 'shape'. 

Valeur retoumee: 
libirv _% = 

Code d'erreur ; lib_rv_% retoume la valeur -1 lorsque vous oubliez de 

charger le fichier INLINE accompagnant le module et 0 lorsque tout se 
deroule normalement. 



Description: 

Les modules L_SHAP32, M_SHAP32 et H_SHAP32 vous permettent de 
creer des sprites d'une largeur de 32 pixels ; contrairement aux limites 
imposees par l'instruction SPRITE, le sprite peut ici prendre quasiment 
n'importe quelle hauteur et contenir toutes les couleurs offertes par le degre 
de resolution caracterisant le moniteur. 

Attention: V 

Souvenez-vous qu'il convient d'entrer un parametre de plus lorsque vous 
utilisez H_SHAP32 ( sourceadr _%) ; ce parametre indique l'adresse du 
masque du sprite, qui n'est pas engendre automatiquement par le module 
contrairement a ce qui se passe sous L_SHAP32 et MJ3HAP32. 

Comme l'utilisation d’un tel sprite joue beaucoup sur les delais d'affichage, 
il est sans doute avantageux d'appeler immediatement la routine en 
assembleur. Ceci accelere considerablement le processus et rend l'affichage 
du sprite plus 'souple' puisqu'on peut omettre de sauvegarder l'arriere- 
plan. C'est de plus interessant lorsque l'on souhaite restaurer l'arriere-plan 
en le faisant varier (par exemple au moyen d'une animation). 

Voici dans ce cas la syntaxe pour lancer L„SHAP32 : 

~C :l_shap32mc_%(x_%,y_%,options_%,rows_%,L tscreenadr—%, 

L : bufadr_%,L rmemadr_%) 

pour lancer M_SHAP32: 

~C :m_shap32mc %(x %,y %,options %,rows %,L :screenadr—%, 

L :bufadr_%,L :memadr_,%) 

et pour lancer H_SHAP32 : 

~C :h_shap32mc %(x %,y %,options %,rows %, 

L :screenadr_%,L :bufadr_%,L :memadr_%) 

Les parametres sont exactement les memes que lorsque vous lancez la 
procedure, a l'exception de options_%, qui peut prendre les valeurs 
suivantes: 

>- options_% == 0 : GETBACK, sauvegarder l'arriere-pla 



options_% == 2 : SETSHAPE, activer le sprite. 

Toute autre valeur sera ignoree ; void done la succession logique pour 
activer un sprite et le faire disparaitre : 

>■ D'abord options_% = 0 ==> GETBACK 

>• Ensuite options_% = 2 ==> SETSHAPE 

»■ Enfin options_% = 1 ==> PUTBACK 

Ce qui nous donne trois appels en tout, mais il est possible de laisser 
tomber GETBACK et PUTBACK lorsqu'on veut restaurer l'arriere-plan en 
le modifiant. Attention : PUTBACK ne doit en principe intervenir qu'apres 
un appel de GETBACK. 

Notez cependant que, pour qu'il soit possible de lancer directement le 
module SHAPE, il faut des le debut du programme prevoir le lancement de 
ce module. En clair : avant de lancer la routine en assembleur a l'aide de la 
commande ~C :... il faut avoir appele au moins une fois le module en 
recourant a l'instruction GOSUB, faute de quoi l'adresse start de la routine 

en assembleur (l_shap32mc_%, m_shap32mc_%,h_shap32mc_%) est 

encore sur 0 et 1'appel direct mene tout droit a une erreur de bus 
'BUSERROR' (deux petites bombes a I'ecranl). 

Une fois le module charge, l'adresse start de la routine en assembleur est 
precisee, et vous pouvez done la lancer a l'aide de ~C : 

Exemple: EXAMPLES\PROGRAMS.LOW\L_SHAP32.LST 

MERGE: GFA_GLIB.3_0\GFA_GLIB.LOW\L_SHAP32.LST 

GFA_GLIB.3_0\GFA_GLIB.ALL\PLOAD.LST 
GFA_GLIB.3_0\GFA_GLIB.ALL\POPPAL.LST 

' Dimensionner le buffer pour sauvegarder 

1 L'arri6re-plan derriAre le sprite 

(16*24+4) 

INLINE bufadr_%,388 

1 

GOSUB gfa_poppal_ 

palette $=1 ib_rv_$ 

GOSUB gfa_pload_("\EXAMPLES\STUFF\DEM0.PI1",XBI0S(2),0) 




GET 0,136,31,151,shape$ linscrire le sprite dans un string 

ALERT 2,"Appuyez sur une |touche quelconque pour|interrompre la 

d6mo",l,"Start",button| 

xS=0 

yS=136 

xiS=l 

yi&=-l 

HIDEM 

REPEAT 

I 

GOSUB gfa_l_shap32_(xS,yS,0,16,XBIOS(2),bufadr_%,V :shape$+6) 

ADD x&,xi& 

ADD y&,yi& 

IF x&>287 OR x&<1 
MUL xi&,-l 
END IF 

IF y&>183 OR y&<124 
MUL yi&,-l 
END IF 
VSYNC 

i 

GOSUB gfa_l_shap32_(0,0,1,16,XBIOS(2) ,bufadr_%,V :shape$+6) 

1 

UNTIL INKEY$<>"" 

SHOWM 

~XBIOS(6,L :V :palette$) 

Ce programme de demonstration est similaire a celui de L_SHAP16, la 
seule difference residant dans le calcul de la taille du buffer destine a 
contenir l'arriere-plan et dans le fait que l'instruction GET conceme un 
sprite de 32 pixels de large pour 16 pixels de haut. 

La taille du buffer est a nouveau calculee a l'aide de la formule indiquee ci- 
dessus. Comme notre sprite a une hauteur de 16 lignes, nous multiplions la 
constante 24 par 16, et nous ajoutons 4. Le reste de la demonstration est 
rigoureusement semblable a la demonstration de L_Si I API 6. 



Graphisme : L_SHAP64 M_SHAP64 H_SHAP64 


Utilisation: 


Dossier: 


INLINE: 


Exemples: 


Syntaxe: 


Creer des sprites ('shape') d'une largeur de 64 pixels et 
d'une hauteur maximale de 200 pixels (L_SHAP64 et 
M_SHAP64) ou de 400 pixels (H_SHAP64). 

GFA_GLIB.3_0\GFA_GLIB.LOW\L_SHAP64.LST 
(basse resolution) 

GFA_GLIB.3_0\GFA_GLIB.MED\M_SHAP64.LST 
(moyenne resolution) 

GFA_GLIB.3_0\GFA_GLIB.HIG\H_SHAP64.LST 
(haute resolution) 

GFA_GLIB.3_0\GFA_GLIB.LOW\L_SHAP64.INL 

(L_SHAP64.LST) 

GFA_GLIB.3_0\GFA_GL1B.MED\M_SHAP64.INL 

(M_SHAP64.LST) 

GFA_GLIB.3_0\GFA_GLIB.HIG\H_SHAP64.INL 

(H_SHAP64.LST) 

EXAMPLES \ PROGRAMS. LOW \ L_SH AP 64. LST 
(basse resolution) 

EXAMPLES\PROGRAMS.HIG\H_SHAP64.LST 
(haute, resolution) 

GOSUB gfa_l_shap64_(x_%,y_% / options_%, 

rows_%, screenadr_%/bufadr_%,memadr_%) 

GOSUB gfa_m_shap64_(x_%,y_%,options_%, 

rows_%, screenadr_%,bufadr_%,memadr_%) 

GOSUB gfa_h_shap64_(x_%,y_%,options_%, 

rows_%, screenadr_% / bufadr_%,memadr_%) 



Parametres: 


- x _% : 

Voir L_SHAP16 et M_SHAP16. 

-y_%: 

Coordonnee Y de l'endroit oix doit venir s'afficher le sprite ; la aussi, il peut 
prendre n'importe quelle position, mais il convient de veiller a ce qu'il ne 
sorte pas du tout (ni partiellement ni completement) du bord superieur et 
inferieur de l'ecran, faute de quoi l'utilisateur serait amene a ecrire dans la 
memoire en-dessous ou au-dessus de l'ecran. 

Si cela s'avere vraiment indispensable, il est cependant possible de faire 
franchir le bord superieur de l'ecran au sprite, en modifiant en consequence 

l'adresse de debut de ses donnees (memadr_%) ainsi que sa hauteur 

(rows_%). Par exemple, lorsque seules les dix demieres lignes composant 

un sprite doivent rester visibles, il faut indiquer sous memadr_% l'adresse 

des donnees correspondant a cette dixieme ligne et entrer 10 sous rows_ %. 

Pour calculer 'memadr_%', on peut recourir aux formules suivantes : 

>• basse resolution : memadr_% = adresse de debut des donnees 

+ 32 * numero de la premiere ligne du sprite 

>■ moyenne resolution : memadr_ % = adresse de debut des donnees 

+ 16 * numero de la premiere ligne visible du 
sprite 

>■ haute resolution : memadr_% = adresse de debut des donnees + 

8 * numero de la premiere ligne visible du 
sprite 

Notez que la premiere ligne du sprite porte le numero zero. 

Lorsque le sprite doit pouvoir franchir le bord inferieur de l'ecran, il suffit 

d'adapter la valeur de rows_% et d'indiquer le nombre de lignes du sprite 

qui restent effectivement visibles. 

>■ options _% : voir L_SHAP16 ; M_SHAPE16 

>- rows _% : voir L_SHAP16, M_SHAPE 16 

>* screenadr _% : voir L_SHAP16, MJ5HAPE16 



- bufadr _% : 

Vous devez entrer ici l'adresse d'un buffer suffisamment important pour 
pouvoir contenir l'arriere-plan recouvert par le sprite. Ce buffer est 
indispensable, car le principe meme du module 'shape' consiste a 
sauvegarder dans un buffer le secteur d'ecran qui va etre recouvert par le 
sprite avant que ce dernier ne s'affiche. Cet arriere-plan est restaure des que 
le sprite se deplace, le processus se repetant ensuite etc etc. 

Void des formules vous permettant de calculer la taille que doit avoir au 
minimum le buffer en question, vous ne devez en aucun cas lui attribuer 
une taille inferieure: 

>■ basse resolution : taille du buffer = rows_% *40 + 4 

>■ moyenne resolution : taille du buffer = rows_% *20 + 4 

>■ haute resolution : taille du buffer = rows_% *10 + 4 

Lorsque vous vous servez de plusieurs sprites, il convient d'installer un 

buffer pour chacun d'entre eux. 

- memadr _% : 

Adresse des donnees correspondant au sprite : c'est la faqon la plus simple 
de creer un sprite, de le 'teindre' de differentes couleurs puis de l'afficher a 
l'ecran. En GfA Basic, il suffit de recourir a l'instruction GET 
x,yl,x+31,y2,shape$ pour inscrire ces donnees dans un string (shape$) : les 
donnees du sprite sont ainsi directement chargees en memoire dans le bon 
format (la ou se trouve le string). 

Voici la formule permettant de calculer memadr_ % : 

memadr_%=V : shape$+6 

11 est indispensable d'additionner 6, car le GfA Basic enregistre la hauteur et 
la largeur du secteur ainsi que le nombre de plans binaires devant les 
donnees propremen t dites. 

Si vous utilisez cette methode, faites bien attention a ce que le secteur lu a 
l'aide de l'instruction GET ait effectivement une largeur de 64 pixels, ni 
plus, ni moins. 



- sourceadr _% : 


Adresse du masque du sprite ; vous n'entrez ce parametre que dans la 
module H_SHAP64 (haute resolution). La variable sourceadr_% contient 
l'adresse de debut d'un masque de sprite ; en haute resolution, ce masque 
sert a preciser quels secteurs de l'arriere-plan sont purement et simplement 
recouverts par le sprite et quels secteurs sont par contre visibles par 
'transparence'. 

La structure de ce masque ressemble fortement a celle du masque de la 
fleche de la souris, que vous creez en GfA Basic a l'aide de l'instruction 
DEFMOUSE. 

Le masque du sprite prend exactement la meme taille que le sprite lui- 
meme et peut aussi venir s'inscrire dans un string (done en memoire) en 
utilisant l'instruction GET. Tout point du sprite (quil soit blanc ou noir) 
appele a recouvrir et dissimuler l'arriere-plan doit etre identifie dans le 
masque par un bit vrai (1) ; par contre, les points devant laisser 
transparaitre l'arriere-plan seront identifies par des bit faux (0). 

Vous trouverez dans le dossier EXAMPLES\STUFF une image DEMO.PIC 
vous montrant l'aspect que peut prendre un sprite et son masque. Ce 
dossier contient 40 objets graphiques pouvant servir de sprite, flanques de 
leur 40 masques. 

La disquette contient aussi un programme de demonstration pour les 
moniteurs haute resolution 

(voir EXAMPLES\PROGRAMS.HIG\HSHAP64.LST). 

Tout cela suffit pour vous faire comprendre concretement comment 
fonctionne ce module 'shape'. 

Valeur retoumee: 

lib rv_ % = code d'erreur ; lib_rv_% retoume la valeur -1 lorsque vous 

oubliez de charger le fichier INLINE accompagnant le module et 0 lorsque 
tout se deroule normalement. 


Description: 



Les modules L_SHAP64, M_SHAP64 et H_SHAP64 vous permettent de 
creer des sprites d'une largeur de 64 pixels ; contrairement aux limites 
imposees par l'instruction SPRITE, le sprite peut ici prendre quasiment 
n'importe quelle hauteur et contenir toutes les couleurs offertes par le degre 
de resolution caracterisant le moniteur. 

Attention : V 

Souvenez-vous qu'il convient d'entrer un parametre de plus lorsque vous 

utilisez H_SHAP64 (sourceadr_%) ; ce parametre indique l'adresse du 

masque du sprite, qui n'est pas engendre automatiquement par le module 
contrairement a ce qui se passe sous LJ3HAP64 et M...SHAP64. 

Comme l'utilisation d'un tel sprite joue beaucoup sur les delais d'affichage, 
il est sans doute avantageux d'appeler immediatement la routine en 
assembleur. Ceci accelere considerablement le processus et rend l'affichage 
du sprite plus 'souple' puisqu'on peut omettre de sauvegarder l'arriere- 
plan. C'est de plus interessant lorsque Ton souhaite restaurer l'arriere-plan 
en le faisant varier (par exemple au moyen d'une animation). 

Voici dans ce cas la syntaxe pour lancer L_SHAP64 : 

~C :l_shap64mc_% (x_%,y_%,options_%,rows_%, 

L :screenadr_%,L :bufadr_%,L :memadr_%) 

pour lancer M_SHAP64: 


~C :m_shap64mc_% (x_%,y_%,options_%,rows_%, 

L :screenadr_%,L :bufadr_%,L :memadr_%) 

et pour lancer H_SHAP64 : 


~C :h_shap64mc_% (x_%,y_%,options_%,rows_%, 

L :screenadr_%,L :bufadr_%,L :memadr_%) 

Les parametres sont exactement les memes que lorsque vous lancez la 

procedure, a l'exception de options_%, qui peut prendre les valeurs 

suivantes : 

>- options_% == 0 : GETBACK, sauvegarder l'arriere-plan 

>• options_% == 1 : PUTBACK, restaurer l'arriere-plan 

options_% == 2 : SETSHAPE, activer le sprite. 






Toute autre valeur sera ignoree ; voici done la succession logique pour 
activer un sprite et le faire disparaitre : 

>- D'abord options_% = 0 ==> GETBACK 

>- Ensuite options_% = 2 ==> SETSHAPE 

>- Enfin options_% = 1 ==> PUTBACK 

Ce qui nous donne trois appels en tout, mais il est possible de laisser 
tomber GETBACK et PUTBACK lorsque l'on veut restaurer l'arriere-plan 
en le modifiant. Attention : PUTBACK ne doit en principe intervenir 
qu'apres un appel de GETBACK. 

Notez cependant que, pour qu'il soit possible de lancer directement le 
module SHAPE, il faut des le debut du programme prevoir le lancement de 
cette procedure. 

En clair : avant de lancer la routine en assembleur a l'aide de la commande 
~C :...I1 faut avoir appele au moins une fois la procedure en recourant a 
l'instruction GOSUB, faute de quoi l'adresse start de la routine en 
assembleur (l_shap64mc_%, m_shap64mc_%,h_shap64mc_%) 

est encore sur 0 et l'appel direct mene tout droit a une erreur de bus 
'BUSERROR' (deux petites bombes a l'ecran!). 

Une fois le procedure chargee, l'adresse de debut de la routine en 
assembleur est identifiee et vous pouvez done la reprendre a l'aide de ~C : 

Exemple : EXAMPLES\PROGRAMS.LOW\L_SHAP64.LST 

MERGE : GFA_GLIB.3_0\GFA_GLIB.LOW\L_SRAP64.LST 

GFA_GLIB.3_0\GFA_GLIB.ALL\PLOAD.LST 

GFA_GL1B.3_0\GFA_GLIB.ALL\POPPAL.LST 

■ dimensionner le buffer pour sauvegarder 

■ 1'arri6re-plan derrifere le sprite 
(16*40+4) 

INLINE bufadr_%,644 

1 

GOSUB gfa_poppal_ 
palette$=lib_rv_$ 



GOSUB gfa_pload_("\EXAMPLES\STUFF\DEMO.PI1",XBIOS(2),0) 

I 

GET 0,136,63,151,shape$ linscrire le sprite dans un string 

ALERT 2,"Appuyez sur une |touche quelconque pour|interrompre 

la d6mo",l,"Start",button| 

x&=0 

y&=136 

xi&=l 

yifi=-l 

HIDEM 

REPEAT 

i 

GOSUB gfa_l_shap64_(x&,y&,0,16,XBIOS(2),bufadr_%,V :shape$+6) 

i 

ADD x&,xi& 

ADD y£,yi& 

IF x&>255 OR xS<l 
MUL xi&,-l 
ENDIF 

IF y&>183 OR y&<124 
MUL yi&,-l 
ENDIF 
VSYNC 

GOSUB gf a_l_shap64_(0,0,1,16,XBIOS(2),bufadr_%,V :shape$+6) 

i 

UNTIL INKEY$<>"" 

SHOWM 

~XBIOS(6,L :V :palette$) 

Ce programme de demonstration est similaire a celui de L_SHAP16, la 
seule difference residant dans le calcul de la taille du buffer destine a 
contenir l'arriere-plan et dans le fait que l'instruction GET conceme un 
sprite de 64 pixels de large pour 16 pixels de haut. 

La taille du buffer est a nouveau calculee a l'aide de la formule indiquee ci- 
dessus. Comme notre sprite a une hauteur de 16 lignes, nous multiplions la 
constante 40 par 16, et nous ajoutons 4. Le reste de la demonstration est 
rigoureusement semblable a la demonstration de L_SHAP16. 




Graphisme : L_TCONV M_TCONV 


Utilisation: 


Dossier: 


INLINE: 
Exemples: 


Syntaxe: 


Conversion d'une police de caracteres dans le but de la 
rendre utilisable avec les modules L_TEXT88, 
M_TEXT88 et H_TEXT88. 

GFA_GLIB.3_0\GFA_GLIB.LOW\L_TCONV.LST 
(basse resolution) 

GFA_GLIB.3„0\GFA_GLIB.MED\M_TCONV.LST 
(moyenne resolution) 

GFA GLIB.3„0\GFA_GLIB.HIG\H_TCONV.LST 
(haute resolution) 

Ne necessite aucun fichier INLINE 

EXAMPLES\PROGRAMS.LOW\L_TCOTEX.LST 
(basse resolution) 

EXAMPLES\PROGRAMS.HIG\H_TCOTEX.LST 
(haute resolution) 

GOSUB 

gfa_l_tconv_(screenadr_%,destadr_ %,y _%) 

GOSUB 

gfa_m_tconv_(screenadr_%,destadr_%,y_%) 

GOSUB 

gfa_h_tconv_(screenadr_%,destadr_ %,y _%) 


Parametres: 

- screenadr _% : 

Adresse de debut de la memoire d'ecran; lorsque la police de caracteres (en 
couleur) a convertir doit s'afficher a l'ecran, il suffit d'entrer XBIOS(2) a la 
place de cette adresse. 



Mais on peut aussi enregistrer la police de caracteres dans une autre partie 
de la memoire vive (par exemple l'espace-memoire contenant le deuxieme 
ecran momentanement invisible) dont il convient alors d'indiquer l'adresse 
exacte. 

- destadr _% : 

Adresse d'un buffer qui recevra la police de caracteres convertie ; la 
quantite d'informations necessaires pour representer une police de 
caracteres varie en fonction du degre de resolution de l'ecran, ce qui fait 
aussi varier la taille qu'il convient de donner au buffer : 

>• basse resolution : 8192 octets 

>■ moyenne resolution : 4096 octets 
>• haute resolution : 4096 octets 

II est possible de sauvegarder toutes ces donnees lorsque Ton souhaite 
pouvoir reutiliser la police de caracteres sous sa forme convertie : on peut 
ainsi se constituer une collection de polices de caracteres qu'il suffit de 
recharger, sans avoir a refaire la conversion prealable a chaque fois. 

-y_% • 

Numero de la ligne sur laquelle commence la police de caracteres ; il s'agit 
d'une ligne pixel, puisque la police peut commencer sur n'importe quelle 
ligne-pixel. 

Valeur retournee: 

Aucune. 

Description: 

les procedures L_TCONV, M_TCONV et H_TCONV vous permettent de 
convertir des polices de caracteres dessinees a l'aide d'un logiciel 
quelconque, afin de pouvoir les reutiliser avec les modules L_TEXT88, 
M_TEXT88 et H_TEXT88. 

Vous ne pouvez pas melanger des polices de resolutions differentes : 
concretement, vous ne pouvez pas convertir une police de caracteres avec 
L_TCONV pour l'utiliser sous M_TEXT88 ou H_TEXT88 (et inversement). 



II convient de respecter un certain nombre de regies pour convertir 
correctement les polices de caracteres : 

>■ En basse resolution : 

La police comprend 256 caracteres, ranges sur 6 rangs de 40 caracteres plus 
un rang de 16. Un caractere peut contenir les 16 couleurs accessibles en 
basse resolution, et doit occuper 8x8 pixels. 

>■ En moyenne resolution: 

La police comprend 256 caracteres, ranges sur 3 rangs de 80 caracteres plus 
un rang de 16. Un caractere peut contenir les 4 couleurs accessibles en 
moyenne resolution, et doit occuper 8x8 pixels. 

>- En haute resolution : 

La police comprend 256 caracteres, ranges sur 3 rangs de 80 caracteres plus 
un rang de 16. Un caractere doit avoir une largeur de 8 pixels pour une 
hauteur de 16 pixels., 

>■ Regies applicables quelle que soit la resolution : 

Le premier caractere doit commencer sur le bord gauche de l'ecran et reqoit 
le code ASCII 0 ; les codes ASCII augmentent de la gauche vers la droite et 
du haut vers le bas du tableau. 

II n'est pas indispensable de convertir l'ensemble des 256 caracteres, mais il 
convient dans ce cas de laisser un espace vide a la place du caractere non 
converti. 

L'image contenue dans DEMO.PI1 vous montre l'aspect que peut avoir une 
police en basse resolution et comment il convient de la ranger a l'ecran ; 
vous trouvez un autre exemple dans DEMO.PIC, qui montre une police de 
caracteres en haute resolution. 

Ces deux images vous montrent d'ailleurs qu'il est possible d'attribuer des 
symboles graphiques a des caracteres, symboles dont la combinaison vous 
permettra ensuite d'elaborer des dessins complexes. 


Exemple : EXAMPLES\PROGRAMS. LOW\ LJTCOTEXT.LST 



MERGE: GFA_GLIB.3_0\GFA_GL1B.LOW\L_TCONV.LST 

GFA_GLIB.3_0\GFA_GLIB.LOW\L_TEXT88.LST 
GFA_GLIB.3_0\GFA_GLIB.ALL\PLOAD.LST 
GFA_GLIB.3_0\GFA_GLIB.ALL\POPPAL.LST 

1 ! Buffer pour la police de caract&res (8192 octets) 

INLINE fontadr_%,8192 

1 

GOSUB gfa_poppal_ 

Palette$=lib_rv_$ 

GOSUB gfa_pload_("\EXAMPLES\STUFF\DEMO.PI1",XBIOS (2), 0) 

GOSUB gfa_l_tconv_(XBIOS (2), fontadr_%,36) 

I 

REPEAT 

CLS 

PRINT AT(1,1) ;"veuillez entrer un texte " 

INPUT txt$ 

I 

GOSUB gfa_l_text88_(XBIOS(2), fontadr__%,V :txt$, 0,140,LEN(txt$) ,4X11) 

I 

ALERT 2," | Continuer? | ",1," OUI | NON ", button| 

UNTIL button|=2 
-XBIOS(6,L :V :palette$) 

INLINE nous sert a installer un buffer de 8192 octets, destine a recevoir la 
police de caracteres convertie en basse resolution. 

Nous nous servons ensuite de POPPAL pour sauvegarder la palette des 
couleurs, et nous chargeons, a l'aide de PLOAD, l'image DEMO.PI1 ainsi 
que sa palette dans le buffer d'ecran. 

Notre image contient, a partir de sa ligne 36, une police de caracteres pour 
la basse resolution. Grace a L_TCONV, cette police est convertie en un 
format utilisable sous LJTEXT88. Les donnees sont memorisees dans le 
secteur de la memoire vive que nous avions reserve par INLINE. 

Vous pouvez alors entrer un texte dans une boucle REPEAT... UNTIL, texte 
nni c'affirhpra dans la nolice de caracteres redefinie des que vous aurez 



appuye sur la touche <return>. Dans notre exemple, nous avons 
selectionne un mode L_TEXT88 tel, que l'affichage de textes comprenant 
plus de 40 caracteres se poursuit sur la ligne suivante. 

Vous pouvez repeter cette manoeuvre autant de fois que vous le souhaitez ; 
cliquez sur le bouton 'NON' de la boite de dialogue pour interrompre la 
demonstration, ce qui reactive l'ancienne palette des couleurs d'origine. 



Graphisme : L_TEXT88 M_TEXT88 H_TEXT88 


Utilisation: 


Dossier: 


INLINE: 


Exemples: 


Syntaxe: 


Affichage d'un string a l'aide d'une police de caracteres 
redefinie et dans un certain mode d'affichage. 

GFA_GLIB.3_0\GFA_GLIB.LOW\L_TEXT88.LST 
(basse resolution) 

GFA_GLIB.3_0\GFA_GLIB.MED\M_TEXT88.LST 
(moyenne resolution) 

GFA_GLIB.3_0\GFA_GLIB.HIG\H_TEXT88.LST 
(haute resolution) 

GFA_GLIB.3_0\GFA_GLIB.LOW\L_TEXT88.INL 

(L_TEXT88.LST) 

GFA_GLIB.3_0\GFA_GLIB.MED\M_TEXT88.INL 

(M_TEXT88.LST) 

GFA_GLIB.3_0\GFA_GLIB.HIG\H_TEXT88.INL 

(H_TEXT88.LST) 

EXAMPLES\PROGRAMS.LOW\L_TCOTEX.LST 
(basse resolution) 

EXAMPLES\PROGRAMS.HIG\H_TCOTEX.LST 
(haute resolution) 

GOSUB gfa_l_text88_(screenadr_%,fontadr_ %, 

memadr_%,x_%,y_%/length_% / options_%) 

GOSUB gfa_m_text88_(screenadr_%,fontadr_ %, 

memadr_ %,x _ %,y _% length_% / options_%) 

GOSUB gfa_h_text88_(screenadr_%,fontadr_ %, 

memadr_%,x_ %,y _%,length_%,options_%) 



Parametres: 


- screenadr _% : 

Adresse (du debut) de la memoire d'ecran ; on entre ici XBIOS(2) lorsqu'on 
souhaite que le string vienne s'afficher directement dans l'ecran visible. La 
sortie des donnees peut se faire aussi vers une autre partie de la memoire 
vive (par exemple vers un ecran non visible), dont il convient alors de 
preciser l'adresse. 

-fontadr _% : 

Adresse d'un buffer contenant la police de caracteres (font) reconvertie ; 
avant meme de pouvoir sortir un texte a l'aide de L_TEXT88, M_TEXT88 ou 
HJTEXT88, vous devez disposer en memoire d'une police convertie grace a 
L_TCONV, M_TCONV ou H_TCONV. 

>■ fontadr_ % 

Indique l'adresse de debut de cet espace memoire : il faut veiller a ce que la 
police en question corresponde bien au module utilise (et plus precisement 
au degre de resolution), faute de quoi l'affichage sera illisible. 

- ntemadr % : 

Vous entrez ici l'adresse de la chaine de caracteres (string) a afficher ; pour 
sortir par exemple un string txt$, on peut determiner cette adresse par V: 
txt$. Il n'est pas indispensable cependant que le texte a afficher se trouve 
dans un string, meme si Ton peut ici entrer l'adresse d'une chaine de 
caracteres, car le texte peut aussi se trouver dans un buffer de la memoire 
vive. 

- x_% : 

Coordonnee X de la colonne ou le texte doit venir s'afficher ; il convient de 
respecter les minima/maxima suivants : 

>- basse resolution : 0-39 

>- moyenne resolution : 0-79 
>• haute resolution : 0-79 

Aucun affichage ne se produit lorsque x_ % depasse ces valeurs. 



- y— % •• 


Coordonnee Y de l'endroit ou le texte doit venir s'afficher, en pixels, de 
sorte que le texte peut se trouver sur n'importe quelle ligne de pixels ; il 
convient de respecter les minima/maxima suivants : 

>- basse resolution : 0 -192 

>■ moyenne resolution : 0-192 
>- haute resolution : 0 - 384 

Aucun affichage ne se produit lorsque y_% depasse ces valeurs. 

- length _% : 

Longueur de la chaine de caracteres a afficher ; lorsque le texte est 
enregistre sous forme de string txt$, on peut calculer sa longueur grace a 
LEN(txt$); cette indication de longueur peut aussi servir a ne sortir que des 
fragments d'un string. Lorsque le texte ne se presente pas sous forme de 
string mais qu'il est enregistre quelque part dans la memoire vive, il faut 
absolument indiquer sa longueur pour preciser la fin du texte. 

- options _% : 

Ce parametre est exploite bit par bit; seuls les deux bits 0 et 1 prennent une 
signification: 

>- options_% = Integer de 32 bits de la forme : 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxmm 

x = Bit ne servant pas a preciser le mode (peut prendre un etat quelconque) 
m = Bit servant a preciser le mode d'affichage 

Bit 0 = 0 => l'affichage du texte est coupe au bord de l'ecran dans le 
cas ou le texte depasse le cote droit de l'ecran 

Bit 0 = 1 => L'affichage du texte se poursuit sur la ligne suivante 
lorsque le texte depasse le cote droit de l'ecran. 

Bit 1 = 0 => Le texte laisse voir l'arriere-plan 'par transparence', si 
bien que le texte peut venir surcharger des graphiques. 



Bit 1 = 1 => Le texte recouvre et fait disparaitre l'arriere-plan 
(blocked text). 

Chaque bit de mode ayant sa propre fonction, il est possible de combiner a 
volonte les deux options. Pour simplifier la saisie du mode, il est conseille 
de recourir a la saisie des parametres sous forme binaire, ce qui nous donne 
les quatres combinaisons suivantes : 

&X00 = texte coupe a la fin de la ligne + effet de transparence 

&X01 = texte se poursuivant sur la ligne du dessous + effet de transparence 

&X10 = texte coupe a la fin de la ligne + blocked text 

&X11 = texte se poursuivant sur la ligne du dessous + blocked text. 

Valeur retournee: 
libjro _% : 

Code d'erreur ; lib_rv_% prend la valeur -1 lorsque vous oubliez de 

charger le fichier INLINE accompagnant le module et la valeur 0 lorsque 
tout se deroule normalement. 

Description: 

Les modules L_TEXT88, M_TEXT88 et H_TEXT88 vous permettent de 
redefinir des polices de caracteres, sans qu'il soit besoin de charger le 
GDOS ni de proceder a des preparatifs sans fin, et ce, sans que la 
conversion se limite a une seule couleur (pour les ecrans couleur 
evidemment). 

Grace a ces modules, vous pouvez utiliser autant de polices que vous 
voulez (la seule limite etant la capacite memoire de votre configuration) 
pour sortir des textes dans des mode d'affichage tres varies. Des textes 
peuvent ainsi venir surcharger des graphiques. 

Comme nous avons renonce a certains effets speciaux (par exemple 
windowclipping) l'affichage du texte est encore plus rapide qu'avec les 
instructions TEXT ou PRINT du GfA Basic. 

Exemple : voir L_TCOTEXT.LST avec L_TCONV, M_TCONV ou H_TCONV. 





Graphisme : SETRES 


Utilisation: 

Dossier: 

INLINE: 

Exemples: 

Syntaxe: 

Parametres: 

- options _% : 

Degre de resolution s'appliquant ensuite a toutes les instructions 

d'affichage a l'ecran apres l'appel de la procedure SETRES ; options_% 

peut prendre les valeurs suivantes : 

>■ options_% == 0 : basse resolution 

>- options_% == 1: moyenne resolution 

Toute autre valeur sera ignoree et n'aura done aucun effet. 

Valeur retoumee: 

Aucune 

Description: 

La procedure SETRES permet un affichage correct, tenant compte du bon 
degre de resolution lorsque l'ecran est divise en plusieurs parties grace au 
procedure MRES. 


Selection de la resolution qui s'appliquera ensuite pour 
toutes les instructions de sortie vers l'ecran lorsque la 
procedure MRES sera utilisee avec un affichage ne 
differencial pas entre la basse et moyenne resolution. 

GFA_GLIB.3_0\GFA GLIB.ALLXSETRES.LST 
(basse et moyenne resolution) 

Ne necessite aucun fichier INLINE. 

EXAMPLES \ PROGRAMS. LOW \ MRES. LST 
(basse resolution) 

GOSUB gfa_setres_(options_%) 



MRES permet en effet de recourir simultanement a la basse et moyenne 
resolution ; mais avant d'afficher des donnees sur une des 
parties decoupees dans l'ecran, il convient de proceder aux 
ajustements necessaires en respectant la resolution adequate : c'est la 
qu'intervient SETRES. 

II n'est pas indispensable de lancer SETRES avant chaque affichage : il suffit 
de l'appeler lorsqu'on change de degre de resolution, c'est-a-dire par 
exemple lorsque l'affichage A doit se faire dans telle partie de l'ecran en 
basse resolution et que l'affichage suivant B doit se faire dans une autre 
partie de l'ecran et dans une autre resolution. 

Apres avoir selectionne un degre de resolution a 1 aide de SETRES, il est 
possible de proceder a plusieurs affichages successes dans le meme degre 
de resolution. L'affichage serait par contre illisible si vous passez dans une 
partie de l'ecran demandant un autre degre de resolution sans etre passe 
auparavant dans ce dernier. 

Exemple: EXAMPLES\PROGRAMS.LOW\MRES.LST 

MERGE: GFA_GLIB.3_0\GFA_GLIB.ALL\SETRES.LST 

GFA_GLIB.3_0\GFA_GLIB.ALL\MRES.LST 


INLINE pblockadr%, 6 

l 

BYTE{pblockadr%}=0 

haut de l'ecran 

BYTE{pblockadr%+l}=40 

BYTE{pblockadr%+2}=l 

BYTE{pblockadr%+3}=60 

BYTE{pblockadr%+4}=0 

BYTE{pblockadr%+5}=100 


installer un buffer de 6 octets 

ecrire le bloc des parametres 
! resolution du premier secteur en 

! 40 lignes en basse resolution 
! resolution du deuxieme secteur 
! 60 lignes en moyenne resolution 
! resolution du troisieme secteur 
! tout le reste en basse resolution 


GOSUB gfa_mres_(l,pblockadr%) 

1 

GOSUB gfa_setres_(0) ! basse resolution 

PRINT AT(1,1) ; "texte en basse resolution" 


GOSUB gfa_setres_(1) ! moyenne resolution 

PRINT AT(1,7) ;"texte en moyenne resolution" 



Graphisme: MRES 


Utilisation: 


Dossier: 


INLINE: 


Exemples: 


Syntaxe: 
Parametres: 


Affichage simultane de plusieurs secteurs de l'ecran en 
resolution basse et moyenne ; il est possible de diviser 
l'ecran en bandes horizontales d'affichage en degre de 
resolution differents l'un de l'autre. 

GFA GLIB.3_0\GFA_GLIB.ALL\MRES.LST 
(basse et moyenne resolution) 

GFA_GLIB.3_0\GFA_GLIB.ALL\MRES.INL 

(MRES.LST) 

EXAMPLESX PROGRAMS.LOWX MRES. LST 
(basse resolution) 

GOSUB gfa_mres_(options_% / sourceadr%) 


- options _ % : 

Code de commande permettant d'activer ou desactiver la procedure MRES 
et done la partition de l'ecran en plusieurs secteurs, en entrant l'une des 
valeurs suivantes: 


>■ options_% == 0 : annuler la partition de l'ecran en secteurs 

>■ options_% == 1: activer la partition de l'ecran en secteurs 

Toute autre valeur restera sans effet et sera ignoree. 

- sourceadr _% : 

Adresse du bloc des parametres precisant le decoupage de l'ecran en 
secteurs, et ayant la structure suivante : 

>■ octet Indiquant le degre de resolution du premier secteur (0 - 
basse resolution et 1 = moyenne resolution) 



>- octet Indiquant le nombre de lignes occupees par le premier 
secteur 

>- octet Indiquant le degre de resolution du deuxieme secteur (0 = 
basse resolution et 1 = moyenne resolution) 

»- octet Indiquant le nombre de lignes occupees par le deuxieme 
secteur 

>■ ... 

>■ etc. 

II convient d'entrer autant de paires d'octets (resolution, nombre de lignes) 
que de secteurs decoupes dans l'ecran. 

Attention : V 

Le total des lignes doit etre superieur a 270, afin de ne pas avoir a repreciser 
un degre de resolution pour le bas de l'ecran. 

Valeur retoumee: 

lib_rv_% = code d'erreur ; lib_rv_% retourne la valeur -1 lorsque vous 
oubliez de charger le fichier INLINE accompagnant la procedure, et la 
valeur 0 lorsque tout se deroule normalement. 

Description: 

Cette procedure vous permet de proceder a des affichages dans les deux 
degres de resolution a la fois, en decoupant l'ecran en secteurs horizontaux 
ayant chacun son propre degre de resolution. 

Les instructions du GfA Basic vous permettent de proceder a des affichages 
dans les differents secteurs de l'ecran, mais il convient de les adapter 
auparavant a la resolution voulue grace a la procedure SETRES (voir ci- 
dessus). 


Exemple: voir MRES.LST sous SETRES. 



Graphisme : MPAL 


Utilisation: Avec un ecran couleur, affichage en 16 ou 4 couleurs 

simultanement. 


Dossier: 


INLINE: 


Exemples: 


Syntaxe: 
Parametres: 


GFA_GLIB.3_0\GFA_GLIB.ALL\MPAL.LST 
(basse et moyenne resolution) 

GFA_GLIB.3_0\GFA_GLIB.ALL\MPAL.INL 

(MPAL.LST) 

EXAMPLES\PROGRAMS.LOW\MPAL.LST 
(basse resolution) 

GOSUB gfa_mpal_(options_%,memadr_%) 


- options _% ; 

Code de commande, permettant de preciser si Ton veut activer/desactiver 
1'affichage de plus de 16 (basse resolution) ou de 4 (moyenne resolution) 
couleurs; void les valeurs autorisees : 

>■ options_% <> 0 : Debut de 1'affichage en plus de 16/4 couleurs 

>■ options_ % -- 0: Annulation de 1'affichage en plus de 16/4 couleurs 

simultanement. 


- memadr _% : 

Adresse du debut du bloc de parametres qui precise les differentes palettes 
de couleurs ainsi que la taille du secteur d'ecran conceme par cette palette. 

Le bloc de parametres a la structure suivante : 

ler mot: hauteur du secteur le plus en haut de l'ecran, indiquee en lignes 
de pixels; 

>■ 2eme - 17eme mots : palette des couleurs, valable pour le secteur 
occupant le haut de l'ecran (un mot par couleur) 




5^ 18eme mot: hauteur du deuxieme secteur d'ecran, en lignes de pixels 

>• 19eme - 34eme mots : palette des couleurs valable pour le deuxieme 
secteur 

>■ etc. 

La structure de ce bloc de parametres est done toujours semblable : d'abord 
un mot pour indiquer la hauteur de la bande d'ecran puis 16 mots pour 
preciser la palette de couleurs valable dans ce secteur de l'ecran. 

Le bloc de parametres peut avoir une longueur quasiment quelconque, 
mais il convient de respecter les regies suivantes : 

- il faut preciser les 16 couleurs de la palette, meme en moyenne 
resolution (oil seules quatre couleurs sont utiles) 

- la hauteur de la bande d'ecran ne peut etre inferieure a 2 lignes de pixels 
puisque la palette de couleurs doit rester valable sur au moins une ligne 

- les couleurs sont encodees dans les mots en respectant les codes usuels 
(voir L_GREYS et M_GREYS) 

- le dernier secteur d'ecran doit avoir une hauteur telle que la somme des 
hauteurs de tous les secteurs soit superieure a 250. 

Valeur retoumee: 

lib_rv_% = Code d'erreur ; lib_rv_% retoume la valeur -1 lorsque vous 

oubliez de charger le fichier INLINE accompagnant la procedure, et la 
valeur 0 lorsque tout se deroule normalement. 

Description: 

La procedure MPAL vous permet de changer de palette de couleurs au 
maximum toute les deux lignes, et done d'utiliser dans un meme affichage 
les 512 couleurs possibles avec 1'Atari ST, tant en basse qu'en moyenne 
resolution. 

Apres avoir lance MPAL, les couleurs indiquees restent valables jusqu'au 
prochain appel de MPAL suivi du code de commande options_%=0. 



Comme MPAL tourne sous interruption, vous pouvez fort bien executer en 
meme temps d'autres instructions du GfA Basic. MPAL utilise les memes 
interruptions que MRES, il faut done veiller a ne pas les lancer en meme 
temps, ce qui entrainerait un plantage du systeme. 

Comme avec toute routine utilisant des interruptions, vous devez ici aussi 
faire attention a bien ressortir de la procedure avant de sortir de votre 
programme, faute de quoi la routine se poursuivrait sous le bureau GEM ce 
qui entrainerait un plantage du systeme. 

Exemple : EXAMPLES\PROGRAMS.LOW\MPAL.LST 

MERGE : GFAjGUB.3jD\GFA_GLIB.ALL\MPAL.LST 

GFA_GLIB.3_0\GFA_GLIB.ALL\POPPAL.LST 

Bloc des paramEtres, contenant la palette des 
couleurs 

Et la hauteur du secteur d'Ecran ((2+32)*5) 


! lecture du tableau des couleurs et des 
hauteurs 

! des secteurs => Elaboration du bloc des 
paramEtres 

WORD{pblockadr%+ (is*2) }=wordS 
NEXT i& 

FOR iS=0 TO 304 STEP 20 ! Elaboration de 1' image 

DEFFILL iS/20,2,8 
PBOX is, 0,ifi+39,199 
NEXT is 

PRINT AT (1,1) ;"<« pour continuer, appuyer sur une touche »>" 

HIDEM 

I 

GOSUB gfa_mpal_(l,pblockadr%)! pour lancer MPAL 

I 

~INP(2) ! guette l'appui sur une touche 


INLINE pblockadr%, 170' 

GOSUB gfajpoppal_ 

palette$=lib_rv_$ 

RESTORE parameterblock 
FOR i&=0 TO 5*17-1 

READ words 


GOSUB gfajnpal_(0,0) 


! stopper MPAL 



SHOWM 

~XBIOS(6,L :V :palette$) 

Parameterblock : 

DATA 40 

DATA SH777,SH765,SH567,&H707,SH770,SH077,&H713,SH700 
DATA SH070, SH007,SH767,SH677, SH776, SH766,6H676,&H667 
DATA 40 

DATA SH666, SH654, &H456, SH606, &H660, SH066, SH613, SH600 
DATA SH060, SH006, SH656, SH566, SH665, SH655, SH565, &H556 
DATA 40 

DATA SH555,SH543,SH345,SH505,&H550,SH055,SH513,SH500 
DATA SH050,&H005,SH545,SH455,SH554,SH544,SH454,SH445 
DATA 40 

DATA SH444,SH432,SH234,SH404,SH440,&H044,&H413,SH400 
DATA SH040,&H004,&H434,&H344,&H443,&H433,SH343,SH334 
DATA 90 

DATA SH333,&H321,&H123,SH303,SH330,SH033,SH313,SH300 
DATA SH030,&H003,&H323,&H233,SH332,SH322,SH232,SH223 


Des le debut du programme, nous sauvegardons la palette actuelle des 
couleurs grace a POPPAL, apres quoi nous chargeons le bloc des 
parametres affectes a MPAL. Les hauteurs et les palettes de couleurs se 
trouvent dans les lignes DATA et viennent s'inscrire dans un buffer de 170 
octets cree a l'aide d'un INLINE. 

En lisant les lignes DATA, vous pouvez voir qu'il est possible d'entrer tres 
clairement les palettes de couleurs : on peut en effet pour chaque couleur 
lire immediatement la valeur du rouge, du vert et du bleu. 

Nous voyons qu'il s'agit ici de creer cinq secteurs d'ecran disposant chacun 
de sa propre palette de couleurs et d'une hauteur de 40 lignes (mais ils 
pourraient fort bien etre de hauteurs differentes). 

Nous dessinons ensuite sur l'ecran 16 bandes verticales representant les 16 
couleurs. Nous langons MPAL (options_%=l) en indiquant comme 
adresse du bloc des parametres l'adresse du string pblock$. Des ce moment, 
on peut voir jusqu'a 80 couleurs s'afficher simultanement a l'ecran. 

II est possible de mettre fin a cette demonstration en appuyant sur une 
touche quelconque; il est possible de faire executer d'autres instructions du 
Gf A Basic au lieu de guetter l'appui sur une touche. 



Des qu'une touche est appuyee, cela provoque un nouvel appel de MPAL 

mais cette fois options_%=0, ce qui interrompt l'affichage de nos 80 

couleurs. Seules 16 couleurs restent visibles. Lors de l'arret de la 

demonstration, on donne une valeur quelconque a memadr_% car elle est 

de toute faqon ignoree. 



Graphisme: POLICE 


Utilisation: 

Sortie de chaines de caracteres (strings) avec une police 
de caracteres que Ton peut dessiner soi-meme et dont 
les caracteres peuvent avoir n'importe quelle hauteur. 

Dossier: 

GFA_GLIB.3_0\GFA_GLIB.ALL\POLICE.LST 
(basse resolution) 

INLINE: 

Ne necessite aucun fichier INLINE 

Exemples: 

EXAMPLES\PROGRAMS.LOW\POLICE.LST 
(basse resolution) 


EXAMPLES \ PROGRAMS.HIG \POLICE. LST 
(haute resolution) 

Syntaxe: 

GOSUB gfa_police_(x_%,y_%,width_%,height_%, 

value_%,txt_$,options_%) 


Parametres: 

- x_% : 

Coordonnee X 
-y_%: 

Coordonnee Y ; les parametres x_% et y_% ont une signification 

differente selon que l'on appelle la procedure POLICE pour initialiser ou 
pour afficher une chaine de caracteres. 

En initialisation, la procedure POLICE sert a enregistrer une police de 
caracteres qui servira plus tard pour 1'affichage d'une chaine de caracteres. 

Dans ce cas, les coordonnees x_% et y_% indiquent le coin superieur 

gauche du premier caractere a enregistrer. 

Lorsqu'il s'agit d'afficher une chaine de caracteres, ces coordonnees servent 
a positionner la chaine de caracteres a afficher : elles designent le coin 
superieur gauche du premier caractere de la chaine. 



- width _% : 


Largeur d'un caractere. 

- height _ % : 

Hauteur d'un caractere ; les deux parametres width_% et height—% 

prennent aussi une signification differente selon leur utilisation. 

En initialisation, ils servent a enregistrer correctement les caracteres de la 
police qui vient d'etre traitee. 

Lors de l'affichage, height_% n'a aucune signification, alors que width_% 
sert a determiner l'ecart entre deux caracteres de la chaine. Si l'on donne 

alors a width_% la valeur correspond a la largeur d'un caractere, tous les 

caracteres seront colles l'uri a l'autre ; en lui donnant une valeur superieure 
a la largeur d'un caractere, le texte s'etire sur l'axe des X ; si on lui donne 
une valeur inferieure a la largeur d’un caractere, ceux-ci se chevauchent. 

- value _% : 

Cette valeur est semblable a l'indication de mode dans l'instruction PUT du 
GfA Basic . Comme les caracteres de la police sont affiches a l'aide de 
l'instruction PUT, value_% permet de preciser comment le texte a afficher 
va se combiner avec le contenu actuel de l'ecran. Dans la table suivante, 
S(Source) designe le motif de bits contenu dans la chaine de caracteres et D 
(Destination) le contenu originel de l'ecran : 


Mode 

Combinaison 

Effet 

0 

0 

Tous les points sont effaces 

1 

S AND D 

Seuls restent fixes les points fixes 
dans les deux motifs 

2 

SAND (NOTD) 

Seuls sont fixes les points fixes dans la 
grille source mais effaces dans la 
grille de destination 




3 

s 

La grille source est transferee sans 
modification (GRAPHMODE l,valeur 
pre definie par defaut) 

4 

(NOT S) AND D 

Seuls sont fixes les points fixes dans la 
grille source et fixes dans la grille de 
destination 

5 

D 

La destination n'est pas modifiee 

6 

SXORD 

Seuls sont fixes les points fixes dans 
une seule des grille (GRAPHMODE 3) 

7 

SORD 

Sont fixes tous les points fixes dans 
l'une des deux grilles 
(GRAPHMODE 2) 

8 

NOT (S OR D) 

Sont fixes tous les points qui ne sont 
fixes 

dans aucune des deux grilles 

9 

NOT (S XOR D) 

Sont fixes tous les points fixes dans 
les deux grilles ou dans aucune d'entre 
elles 

10 

NOTD 

Inversion de la grille de destination 

11 

S OR (NOT B) 

Sont fixes tous les points fixes dans la 
grille source ainsi que tous ceux qui 
n'etaient pas fixes dans la grille de 
destination 

12 

NOTE 

Inversion de la grille source avant 
transfert 




13 

(NOT S) OR B 

GRAPHMODE 4 

14 

NOT (S AND D) 

Sont fixes tous les points qui ne 



figuraient 

pas dans les deux grilles a la fois 

15 

1 

Tous les points sont fixes. 


Si en outre le bit 4 du mode est fixe, le motif de remplissage subira une 
combinaison supplemental AND avec la grille source. 


- txt_$ : texte a afficher (string), qui ne doit en principe contenir que des 

caracteres prevus dans la police de caracteres ; cette demiere peut contenir 
les caracteres suivants: 

1 A 1 - 1 Z 1 , 1 0 1 - 1 9', 1 ! 1 , 1 et enfin ' ' 

les minuscules sont affichees en majuscules ; les caracteres non contenus 
dans la police sont ignores et deviennent des espaces vides a l'affichage. 

- options _% : 

Flag ; ce parametre n'est important qu'en initialisation (= premier appel de 
la procedure pour charger la police de caracteres). La police de caracteres 

ne contient pas de minuscules lorsque options_% = 0 : les minuscules sont 

alors affichees comme des majuscules. Les minuscules sont par contre 
affichees en tant que telles lorsque options_% a une valeur differente de 0. 

En affichage de texte, POLICE ignore ce parametre options_% mais il faut 

tout de meme l'entrer avec une valeur quelconque. 

Valeur retoumee: 

Aucune 
Description: 

La procedure POLICE vous permet de sortir des textes a l’aide de polices de 
caracteres que vous avez vous-meme creees. La taille des caracteres n'est 
pas limitee, contrairement a ce qui etait le cas avec L_TEXT88 et 




M_TEXT88. II faut cependant veiller a n'afficher qu'une ligne de texte a la 
fois, car tout texte depassant cette longueur sera coupe a la fin de la ligne. 


En dehors des modes d'affichage definis sous PUT, il n'existe aucune 
possibility de 'surimprimer' le texte sur l'arriere-plan. 

Sous POLICE, le texte peut venir s'afficher a partir de n'importe quelle 
position, indiquee en pixels. 

Pour utiliser une police de caracteres sous POLICE, il convient de la creer 
en respectant les contraintes suivantes : 

>• Lorsque options_%=0, la police peut contenir les caracteres 

suivants: 

ABCDEFGHIJKLMNOPQRSTUVWXYZOl234 5678 9!: 

>- Lorsque options_% est different de 0, la police peut contenir les 

caracteres suivants: 

ABCDEFGHIJKLMNOPQRSTUVWXY ZO123456789!.:abcdefghijklmnopqrstuvwxyz 

>- Les caracteres doivent etre entres dans l'ordre indique ci-dessus 

>• Les caracteres doivent tous avoir la meme taille 

>• Lors de l'initialisation, les caracteres sont lus et enregistres de la 
gauche vers la droite et du haut vers le bas, c'est pourquoi il convient 
de les ranger dans cet ordre 

>■ Il est inutile de prevoir un espace de separation entre les caracteres 

Il n'est pas indispensable de prevoir un jeu complet de caracteres, 
mais il faut alors laisser un espace vide a la place des caracteres 
absents de la police. 

L'image contenue dans DEMO.PI1 (dans le dossier EXAMPLESNSTUFF) 
vous montre 1'aspect que doit avoir une police de caracteres (sans les 
minuscules); autre exemple : 

Exemple : EXAMPLES\PROGRAMS.LOW\POLICE.LST 



MERGE: 


GFA_GLIB.3_0\GFA_GLIB.ALL\POLICE.LST 

gfa_glib.3_o\gfa_glib.all\pload.lst 

GFA_GLIB.3_0\GFA_GLIB.ALL\POPPAL.LST 

GOSUB gfaj>oppal_ 

palette $=1ib_rv_$ 

GOSUB gfaj>load_("\EXAMPLES\STUFF\DEM0.PIl",XBI0S(2) ,0) 

GOSUB gfa_police_(0,136,16,16,3, "",0) ! enregistrer la police de caract&res 

i et initialiser la procedure 

REPEAT 

CLS 

PRINT AT(1,1) ;"veuillez entrer un texte s.v.p." 

INPUT txt$ 

I 

GOSUB gfaj>olice_(0,20,16,16,3,txt$,0) 

I 

ALERT 2," | Continuer? | ",1," OUI | NON ", button| 

UNTIL button|=2 
~XBIOS(6,L :V :palette$) 

On commence par sauvegarder la palette actuelle des couleurs a 1 aide de 
POPPAL, puis on utilise PLOAD pour charger DEMO.PI1 et sa palette de 
couleurs. A partir de la ligne 136, cette image contient une police de 
caracteres utilisable pour afficher des textes a l'aide de POLICE. Cette 
police de caracteres est chargee lors du premier appel de POLICE 
( initialisation ). 

La procedure POLICE est done lance une premiere fois, en entrant 0,136 

comme coordonnees x_% et y_%, car e'est la que se situe le coin superieur 

gauche du premier caractere de la police (i.e. 'A'). 

Comme tous les caracteres font 16 pixels de large pour 16 pixels de haut, 
nous attribuons la valeur 16 tant a width_% qu’a height_%. 

Le mode PUT reqoit la valeur 3, qui est de toute faqon ignoree lors de ce 
premier appel d'initialisation et nous aurions done pu entrer n importe 

quelle autre valeur. Comme txt_$ est aussi ignore lors de 1 initialisation, 

nous entrons un string vide. 



Le parametre options_% regoit la valeur 0 puisque notre police de 

caracteres ne contient que des majuscules. 

Apres ce premier appel de POLICE, nous entrons dans une boucle 
REPEAT... UNTIL pour saisir le texte a afficher. Ce texte viendra s'afficher a 

la position (en pixels) 0,20 (valeurs de x_% et y_%) en mode PUT 3 (mode 

normal). Les parametres height_% et options_% sont ignores et peuvent 

prendre des valeurs quelconques. 

La procedure POLICE peut servir autant de fois qu'on le souhaite ; pour 
mettre fin a la demonstration, cliquer sur le bouton 'NON' a la fin de la 
boucle REPEAT... UNTIL. 




Graphisme : L_OPCOMP M_OPCOMP H.OPCOMP 


Utilisation: 


Dossier: 


INLINE: 


Exemples: 


Syntaxe: 


Cette procedure sert a comprimer des images, quelle 
que soit la resolution ; il sera ensuite possible de les 
remettre a l'etat normal a l'aide de L_DECOMP 
MJDECOMP H_DECOMP 

GFA GLIB.3_ONGFA_GLIB.LOW\L_OPCOMP.LST 
(basse resolution) 

GFA GLIB.3_0\GFA_GLIB.MED\M_OPCOMP.LST 
(moyenne resolution) 

GFA_GLIB.3„0\GFA_GLIB.HIG\H_OPCOMP.LST 
(haute resolution) 

GFA_GLIB.3J)\GFA_GLIB.LOW\L OPCOMP.INL 
(L_OPCOMP. LST) 

GFA GLIB.3_0\GFA_GLIB.MED\M_OPCOMP.INL 
(M_OPCOMP.LST) 

GFA GLIB.3J)\GFA_GLIB.HIG\H_OPCOMP.INL 
(H_OPCOMP. LST) 

EXAMPLES \ PROGRAMS. LO W\ LJDPCDEC. LST 
(basse resolution) 

EXAMPLES\PROGRAMS.HIG\H OPCDEC.LST 
(haute resolution) 

GOSUB gfa_l_opcomp_(sourceadr_%,destadr_%, 

length_%) 

GOSUB gfa_m_opcomp_(sourceadr_%,destadr_%, 

length_%) 

GOSUB gfa_h_opcomp_(sourceadr_%,destadr_%, 

length %) 





Parametres: 


- sourceadr _% : 

Adresse a partir de laquelle l'image va etre comprimee 

- destadr _% : 

Adresse d'un secteur de la memoire vive qui va recevoir les donnees 
correspondant a l'image comprimee 

- length _% : 

Longueur de l'image a comprimer, en mots simples (L_OPCOMP et 
H_OPCOMP) ou longs (M_OPCOMP) 

Valeur retoumee: 
lib_rv _% = 

Nombre d'octets de l'image apres compression, ou code d'erreur ; 

lib rv_% retoume la valeur -1 lorsque vous oubliez de charger le fichier 

INLINE accompagnant la procedure et la valeur 0 lorsque tout se deroule 
normalement. 

Description: 

Ces trois procedures LJ3PCOMP, M_OPCOMP et HJDPCOMP vous 
permettent de comprimer des images quelle que soit la resolution. 

Les images en basse resolution sont comprimees a l'aide de L_OPCOMP et 
pourront etre decomprimees grace a L_DECOMP. 

Les images en moyenne resolution sont comprimees a l'aide de 
M_OPCOMP et pourront etre decomprimees grace a M_DECOMP. 

Les images en haute resolution sont comprimees a l'aide de H_OPCOMP et 
pourront etre decomprimees grace a H_DECOMP. 

La compression/decompression ne fonctionne que si vous utilisez les deux 
procedures allant de paire pour un degre determine de resolution. 



GOSUB gfa_setres_(0) ! retour 4 la basse resolution 

PRINT AT(1,20) ;"texte en basse resolution" 

PRINT AT(1,23) ;"appuyez sur une touche quelconque pour sortir" 

~INP(2) ! attendre l'appui sur une touche 

l 

GOSUB gfa_mres_(0,0) ! annuler la division de l'icran en secteurs 

On commence par installer, a l'aide de INLINE, un buffer d'une faille 
suffisante (6 octets) pour qu'il puisse contenir le bloc des parametres pour 
MRES. Six octets suffisent dans notre exemple, car nous divisons l'ecran en 
trois secteurs, ce qui donne un bloc de parametres de 6 octets. Evidemment, 
plus on divise l'ecran, plus il faut augmenter la faille de ce buffer. 

Nous ecrivons ensuite le bloc des parametres necessaires pour lancer 
MRES, bloc qui decrit le decoupage de l'ecran en divers secteurs de divers 
degres de resolution. Cela se fait a l'aide d'octets groupes par paire, le 
premier octet precisant le degre de resolution et le deuxieme precisant le 
nombre de lignes (en pixels) concernees par ce degre de resolution. 

Dans notre exemple, nous divisons l'ecran en trois secteurs. Le secteur 
superieur compte 40 lignes en basse resolution ; le deuxieme secteur occupe 
60 lignes en moyenne resolution ; le dernier secteur occupe le reste du bas 
de l'ecran, en basse resolution : nous lui attribuons 200 lignes, alors qu'il ne 
peut occuper que les 100 lignes restantes. En effet, le total des lignes des 
trois secteurs delimites doit depasser 270 pour que nous n'ayons pas a 
rechanger de degre de resolution en bas de l'ecran. 

Le bloc des parametres etant ecrit, nous appelons la procedure MRES, en 

attribuant la valeur 1 a son parametre options_% pour activer la division 

de l'ecran en secteurs. 

Nous demandons alors l'affichage d'une ligne de texte en basse resolution 
dans le haut de l'ecran : SETRES nous serf a preparer cet affichage en basse 
resolution (options_% = 0). 

Cette premiere instruction PRINT etant executee, nous demandons 
l'affichage d'un autre texte en moyenne resolution dans le deuxieme secteur 
de l'ecran ; SETRES nous serf a passer d'une resolution a l'autre : 
options_% = 1. 



Nous voulons enfin afficher un troisieme texte en basse resolution et dans 
le troisieme secteur, en bas de l'ecran ; SETRES nous sert a nouveau a 

changer de degre de resolution : options_% = 0. Nous demandons 

l'execution de deux instructions PRINT, afin de bien montrer qu'un seul 
appel de SETRES suffit du moment qu'on reste dans le meme degre de 
resolution dans le meme secteur. 

Le programme guette alors un appui sur une touche quelconque pour 
s'interrompre. Avant de ressortir du programme, il est important de penser 
a annuler la division de l'ecran en secteurs, en appelant MRES avec 

options_% = 0, faute de quoi la division persisterait au niveau du bureau 

GEM ou d'un autre programme, ce qui entrainerait un plantage general du 
systeme ou en tout cas des affichages illisibles. 




Attention: V 


II peut arriver que l'image soit d'une telle complexity (grille tres fine, points 
isoles etc) qu'elle ne puisse etre effectivement comprimee ; il peut meme 
arriver qu'elle prenne plus de place en memoire apres sa compression 
qu'avant, ce qui se produit le plus souvent en moyenne et haute resolution, 
avec M OPCOMP et H_OPCOMP. Ce phenomene vient de ce que la 
procedure renonce a comprimer l'image lorsque les algorithmes a mettre en 
oeuvre sont trop complexes ou trop couteux en temps de traitement. 

Avec des images (ou des morceaux d'image) simples, ces deux procedures 
menent toutefois a des resultats satisfaisants. La grande simplicity des 
algorithmes de compression se revele meme constituer un avantage lors de 
la decompression, puisque celle-ci se deroule en une fraction de seconde. 

Exemple : EXAMPLES\PROGRAMS.LOW\L_OPCDEC.LST 

MERGE : GFA GLIB.3_0\GFA_GLIB.LOW\L OPC.OMP.LST 

GFA_GLIB.3_0\GFA_GLIB.LOW\L DECOMP.LST 

GFA_GLIB.3_0\GFA„GLIB.ALL\PLOAD.LST 

GF A _ GLIB .3 J) \ G FA_GLIB. ALL \ POPP AL. LST 

' (installer un buffer pour recevoir les donn£es comprimees 

INLINE imageadr_%, 32000 

I 

GOSUB gfa_poppal_ 

palette$=lib_rv_$ 

GOSUB gfajpload_("\EXAMPLES\STUFF\DEM0.PI1",XBI0S (2), 0) 

I 

GOSUB gfa_l_opcomp_(XBI0S(2),imageadr_%,32000/2) 

I 

CLS 

PRINT "Nombre d'octets avant compression : 32000" 

PRINT "Nombre d 1 octets aprds compression : " ;lib_rv_% 

PRINT "«< appuyez sur une touche pour continuer »>" 

-INP(2) 

i 

1 pour sauvegarder l'image comprimee 
1 BSAVE "DEMO.PCO", imageadr%, lib_rv_% 


GOSUB gfa_l_decomp_(imageadr_%, XBIOS (2)) 

I 

-INP(2) 

-XBIOS(6,L :V :palette$) 

A l'aide d'un INLINE, nous commengons par installer un buffer de 32000 
octets destine a recevoir les donnees de l'image comprimee ; notez que ce 
buffer ne sera pas complement occupe puisque l'image comprimee 
occupera en principe moins de place qu'a l'origine. 

POPPAL nous sert ensuite a sauvegarder la palette d'origine des couleurs 
et nous chargeons a l'ecran une image DEGAS en basse resolution 
(DEMO.PI1) accompagnee de sa propre palette de couleurs. 

Apres quoi nous comprimons l'image en lan^ant L_OPCOMP ; nous nous 
servons de l'adresse de l’ecran (XBIOS(2)) pour sourceadr_% et de 
l'adresse imageadr_% de l'instruction INLINE comme destadr_%. Nous 
reprenons pour length_% la taille de la memoire d'ecran indiquee en mots 
(32000 octets / 2 = 16000 words). 

Une fois l'image comprimee et l'ecran vide de son contenu, le programme 
indique le nombre d'octets occupes par les donnees de l'image ainsi 
comprimee. La procedure L_OPCOMP renvoie ce nombre d'octets, apres la 
compression, dans la variable lib_rv_%. Cette valeur peut egalement 
servir a enregistrer les donnees comprimees. 

II suffit d'appuyer sur une touche quelconque pour que les donnees soient 
decomprimees et reaffichees a l'ecran. Pour lancer L_DECOMP, nous nous 
servons de l'adresse de debut du buffer ( imageadr _%) comme source des 
donnees de l'image comprimee et de l'adresse de la memoire d'ecran 
(XBIOS(2)) comme adresse cible. Notez qu'il n’est pas necessaire d'indiquer 
la longueur des donnees lors du processus de decompression, car la 
procedure de decompression sait reconnaitre le signe de fin des donnees 
comprimees. 

II suffit de re-appuyer sur une touche pour restaurer la palette des couleurs 
d'origine et mettre fin au programme de demonstration. 



Graphisme : L_DECOMP M_DECOMP H_DECOMP 


Utilisation: 


Dossier: 


INLINE: 


Exemples: 


Syntaxe: 


Cette procedure sert, quelle que soit la resolution, a 
decomprimer des images qui ont ete comprimees a 
l'aide de LOPCOMP M_OPCOMP H_OPCOMP 

GFA_ GLIB.3_0\GFA„GLIB.LOW\L_DECOMP.LST 
(basse resolution) 

GFA _ GLIB.3_0\GFA_GLIB.MED\M__DECOMP.LST 
(moyenne resolution) 

GFA_GLIB.3„0\GFA„GLIB.HIG\H_DECOMP.LST 
(haute resolution) 

GFA _GLIB.3_0\GFA_GLIB.LOW\L_DECOMP.INL 
(L_DECOMP. LST) 

GFA GLIB.3„0\GFA_GLIB.MED\M_DECOMP.INL 
(M_DECOMP.LST) 

GFA GLIB.3_0\GFA„GLIB.HIG\H _DECOMP.INL 
(H_DECOMP. LST) 

EXAMPLES\PROGRAMS.LOW\OPCDEC.LST 
(basse resolution) 

EXAMPLES\PROGRAMS.HIG\OPCDEC.LST 
(haute resolution) 

GOSUB gfa_l_decomp_(sourceadr_%,destadr_%) 

GOSUB gfa_m_decomp_(sourceadr_%,destadr_%) 

GOSUB gfa_h_decomp_(sourceadr_%,destadr_%) 




Parametres: 


- sourceadr _% : 

Adresse a partir de laquelle se trouvent les donnees correspondant a 
l'image comprimee 

- destadr _ % : 

Adresse a laquelle l'image va etre decomprimee 

Valeur retoumee: 
libjrv _% = 

D'erreur ; lib_rv_% retourne la valeur -1 lorsque vous oubliez de charger 

le fichier INLINE accompagnant la procedure et la valeur 0 lorsque tout se 
deroule normalement. 

Description: 

Ces trois procedures L_DECOMP, M_DECOMP et H_DECOMP vous 
permettent de decomprimer des images dans les trois resolutions. 

Les images en basse resolution comprimees a l'aide de L_OPCOMP 
pourront etre decomprimees grace a L_DECOMP. 

Les images en moyenne resolution comprimees a l'aide de M_OPCOMP 
pourront etre decomprimees grace a M_DECOMP. 

Les images en haute resolution comprimees a l'aide de H_OPCOMP 
pourront etre decomprimees grace a H_DECOMP. 

La compression/decompression ne fonctionne que si vous utilisez les deux 
procedures allant de paire pour un degre determine de resolution. 

Exemple : Voir L_OPCDEC.LST pour LJDPCOMP, M_OPCOMP et 
H_OPCOMP. 



Graphisme: H_LOUPE 


Utilisation: 


Dossier: 


INLINE: 
Exemples: 


Agrandissement d'un secteur d'ecran, de forme 
rectangulaire, selon un facteur a determiner. 

GFA_GLIB.3_0\GFA_GLIB.HIG\H_LOUPE.LST 
(haute resolution) 

GFA_GLIB.3_0\GFA_GLIB.HIG\H_LOUPE.INL 

EX AMPLESX PROGRAMS. HIG \ H_LOUPE. LST 
(haute resolution) 


Syntaxe: GOSUB gfa_h_loupe_(xl_%,yl_%,x2_%,y2_%, 

x_%,y_%,screenadr_%,value_%) 


Parametres: 


- xl_Vc : 

Coordonnee X du coin superieur gauche du secteur a agrandir. 

Coordonnee Y du coin superieur gauche du secteur a agrandir. 

- x2 _% : 

Coordonnee X du coin inferieur droit du secteur a agrandir 

Remarquez qu’il est tout a fait possible d'intervertir xl_% et x2_%, sans 

toutefois depasser les limites suivantes : 

>- haute resolution : minimum 0 et maximum 639 


" 3 / 2 —% : 

Coordonnee Y du coin inferieur droit du secteur a agrandir. 



Ici aussi, il est tout a fait possible d'intervertir yl_% et y2_% (ce qui 

revient a indiquer d'abord le coin inferieur droit puis le coin superieur 
gauche), sans toutefois depasser les limites suivantes : 

>■ haute resolution : minimum 0 et maximum 399 

- *_% : 

Coordonnee X du coin superieur gauche du secteur de destination ; le 

parametre x_% doit etre un multiple de 16 et corresponds a un point se 

trouvant a l'interieur de l'ecran ; l'agrandissement ne se fera pas si vous 

donnez a x_% une valeur erronnee et lib_rv_% retoumera la valeur 1 ; 

par contre, lib_rv_% retoumera la valeur 0 si vous donnez une valeur 

correcte a x_% et que tout se deroule bien. 


-y-%: 


Coordonnee Y du coin superieur gauche du secteur de destination. 

- screenadr_ _ % : 

Adresse de l'ecran, qui est generalement celle de l'ecran visible (XBIOS(2)); 
vous pouvez aussi entrer l'adresse de l'ecran non-visible si vous vous en 
servez. On admet toutefois que le secteur a agrandir se trouve sur l'ecran 
visible, et l'agrandissement s'affichera sur le meme ecran. 

-value__% : 

Facteur d'agrandissement, compris entre : value_% = 2 - 640 

L'agrandissement ne se fera pas, et lib_rv_._% retoumera la valeur 1 

Si vous entrez un facteur d'agrandissement en dehors des limites 
ci-dessus 

>• Si le secteur une fois agrandi depasse la taille de l'ecran ou 

>• S'il se trouve partiellement en dehors de l'ecran. 

Si par contre vous entrez un facteur autorise et si le secteur agrandi tient 
entierement dans l'ecran, lib_rv_% retoume la valeur 0. 




Valeur retoumee: 


libjrv _% = 

Code d'erreur ; lib_rv_% retoume la valeur 0 si tous les parametres sont 

correctes et si vous avez charge le fichier INLINE accompagnant la 

procedure ; lib_rv_% retoumera par contre un code d'erreur (et 

l'agrandissement ne se produira pas) dans l'un des cas suivants : 

»■ Les coordonnees X du secteur de destination ne sont pas divisibles par 
16 (lib_rv_% retoume la valeur 1) ; 

>- Le facteur d'agrandissement value% est inferieur a 2 ou superieur a 640 
(lib_rv_% retoume la valeur 1); 

>■ Le secteur agrandi depasse partiellement de l'ecran ou se trouve 
completement en dehors en ce dernier (lib_rv_% retoume la valeur 1) ; 

»■ Le secteur agrandi est plus grand que l'ensemble de l'ecran (lib_rv_% 

retoume la valeur 1); 

>- Vous avez oublie de charger le fichier INLINE (lib_rv_% retoume la 

valeur-1). 

Description: 

Cette procedure vous permet d'obtenir l'agrandissement d'un secteur 
quelconque de l'ecran selon un facteur a determiner ; le secteur a agrandir 
et sa representation agrandie se trouvent tous deux sur le meme ecran. 

Attention: V 

la procedure H_LOUPE n'existe que pour la haute resolution. 


Exemple: EXAMPLES\PROGRAMS.HIG\H_LOUPE.LST 

GFA_GLIB.3_0\GFA_GLIB.HIG\H_LOUPE.LST 


MERGE: 



DEFFILL 1,2,24 ! Elaboration de 1'image 

PBOX 0,0,639,399 
TEXT 30,32,"LOUPE" 

ALERT 1," | Agrandir? | ", 1,"START", button| 

REPEAT 

y%=15 

FOR x%=l TO 80 

I 

GOSUB gfa_h_loupe_(x_%,y_%,x_%+25,y_%+25,160,50,XBIOS(2), 8) 

i 

NEXT x_% 

ALERT 1, " | Continuer? | ",1," OUI|NON",button| 

UNTIL button|=2 

Nous commenqons par creer une image sur l'ecran visible, pour pouvoir en 
agrandir une partie. 

Le programme attend ensuite que l'utilisateur clique sur le bouton START 
de la boite de dialogue qui s’affiche ; ceci etant fait, nous assistons a 
l'agrandissement d'un secteur d'ecran se deplaqant progressivement vers la 
droite grace a une boucle (effet ressemblant au 'scrolling'). 

H_LOUPE exerce son action sur un secteur de 26 x 26 pixels dont le 
contenu est agrandi a la position 160,50 (x_%,y_%). L’agrandissement se 

fait selon un facteur 8 (value_%), ce qui revient a dire que chaque pixel du 

dessin original est agrandi a 8 pixels. 

Nous avons utilise XBIOS(2) comme adresse de l'ecran puisque le secteur a 
agrandir se trouve dans l'ecran visible. 

Une fois la boucle entierement parcourue, le programme envoie une boite 
de dialogue demandant si la demonstration doit se repeter (cliquer sur 
’OUT) ou s'interrompre (cliquer sur 'NON'). 



Graphisme : L_FADEOF M_FADEOF H_FADEOF 


Utilisation: Masquer une partie de l'ecran a l'aide d'une couleur 

quelconque et de differentes fagons. 

Dossier: GFA_GLIB.3_0\GFA_GLIB.LOW\1-._FADEOF.LST 

(basse resolution) 

GFA_GLIB.3_0\GFA_GLIB.MED\M_FADEOF.LST 
(moyenne resolution) 

GFA_GLIB.3_0\GFA_GLIB.HIG\H_FADEOF.LST 
(haute resolution) 

INLINE: GFA_GLIB.3_0\GFA_GLIB.LOW\L_FADEOF.INL 

(L_FADEOF. LST) 

GFA_GLIB.3_0\GFA_GLIB.MED\M_FADEOF.INL 

(M_FADEOF.LST) 

GFA_GLIB.3_0\GFA_GLIB.HIG\H_FADEOF.INL 

(H_FADEOF.LST) 

Exemples: EXAMPLES\PROGRAMS.LOW\L_FADEOF.LST 

(basse resolution) 

EXAMPLES\PROGRAMS.HIG\H_FADEOF.LST 
(haute resolution) 

Syntaxe : GOSUB gfa_l_fadeof_(destadr_%,rows_%,col_%, 

speed_%,options_%,pattem_%) 

GOSUB gfa_m_fadeof_(destadr_%,rows_%,col_ %, 

speed_%,options_%,pattem_%) 

GOSUB gfa_h_fadeof_(destadr_%,rows_%,col_ %, 

speed_ %, options_%,pattem_ %) 



Parametres: 


- destadr _ % : 

Adresse de la ligne d'ecran a partir de laquelle on souhaite masquer un 
nombre rows_% de lignes; void comment calculer l'adresse de la ligne : 

>- En basse et moyenne resolution : 

Adresse = XBIOS(2) + numero de la ligne * 160 

>■ En haute resolution : 

Adresse = XBIOS(2) + numero de ligne * 80 

Par exemple, pour masquer un secteur a partir de la ligne 10 en basse 
resolution, nous ecrivons: 

Destadr% = XBIOS(2) + 10 * 160 = XBI0S (2) + 1600 

Rappelons que XBIOS(2) vous donne l'adresse de debut de l'ecran. 

- rows _% : 

Nombre de lignes a masquer ; evidemment, rien ne sera masque si vous 
entrez 0 ligne! 

>• En basse et moyenne resolution: 0 - 200 lignes 
>- En haute resolution : 0 - 400 lignes. 

- col _ % : 

Couleur servant a remplir le secteur d'ecran qui est masque 

>■ En basse resolution : 0-15 soit 16 couleurs differentes 

>■ En moyenne resolution : 0-3 soit 4 couleurs differentes 

>* En haute resolution : 0-1 soit 2 couleurs differentes (noir/blanc). 


- speed _% : 

Vitesse du processus de masquage, comprise entre 0 (le plus rapide) et 
65535 (le plus lent) 



- options_% : 


Numero de l'effet de masque, a choisir parmi 13 effets possibles designes 

par les valeurs 1 a 13, dont l'une est affectee au parametre 'options_%' ; 

void une breve description de ces 13 effets : 

options_% == 1 : Le secteur d'ecran conceme s'efface point par point et 

il est possible de rentrer un schema precisant l'ordre 
de disparition des points 

options_% == 2: Le secteur d'ecran disparait ligne par ligne, en 

commengant par celle du haut 

options._% == 3 : Le secteur d'ecran disparait ligne par ligne, en 

commengant simultanement en haut et en bas 

options_% == 4: Le secteur d'ecran disparait ligne par ligne, en 

commen^ant par celle du bas 

options_% == 5 : Le secteur d'ecran disparait colonne par colonne 

(verticalement), en commengant par le bord gauche 

options_% == 6 : Le secteur d'ecran disparait colonne par colonne 

(verticalement), en commengant par le bord droit 

options_% == 7 : Le secteur d'ecran disparait colonne par colonne 

(verticalement), en commengant par les deux bords 
simultanement 

options_% == 8 : Le secteur d'ecran disparait tout en etant remplace 

immediatement par des bandes apparaissant 
simultanement en haut et en bas 

options_% == 9 : Le secteur d'ecran disparait tout en etant remplace 

immediatement par des lignes augmentant 

alternativement a droite et a gauche 

options_% == 10: Le secteur d'ecran semble disparaitre derriere un 

store qui se baisse 

options_% == 11 : Le secteur d'ecran est masque par des bouts de lignes 

qui prennent peu a peu toute la place 



options % == 12 : Le secteur d'ecran disparait vers le bas, par 'scrolling' 

options % == 13 : Le secteur d'ecran disparait vers le haut, par 

'scrolling' 

-pattern _% : 

Motif du masque ; il convient d'entrer ici un nombre sur 16 bits (soit de 0 a 
65535) qui determine le processus de masquage dans les effets 1 a 8 
mentionnes ci-dessus. Ce parametre est ignore lorsque vous utilisez les 
effets 9 a 13, et vous lui donnez done une valeur quelconque, sans l'omettre 
pour autant. 

Valeur retoumee: 
libjrv _% = 

Code d'erreur ; lib_rv_% retourne la valeur -1 si vous avez oublie de 

charger le fichier INLINE accompagnant la procedure et la valeur 0 si tout 
se deroule correctement. 

Description: 

Les procedures L_FADEOF, M_FADEOF et H_FADEOF permettent de 
masquer des secteurs horizontaux sur l'ecran ou d autres secteurs indiques 
par leur adresse. Ceci rend plus attrayantes les demonstrations ou les 
presentations de graphiques. Pour que le processus se deroule 
normalement, il faut veiller a bien charger le bon procedure en fonction du 
degre de resolution de l'ecran utilise. 

Exemple : EXAMPLES\PROGRAMS.LOW\L_FADEOF. LST 
MERGE: GFA_GLIB.3_0\GFA_GLIB.LOW\L_FADEOF.LST 

GFA_GLIB.3_0\GFA_GLIB.ALL\PLOAD.LST 
GFA_GLIB.3_0\GFA_GLIB.ALL\POPPAL.LST 
effect|=1 ! commengons par l'effet 1 


GOSUB gfa_poppal 


GOSUB gfaj>load_ (" \EXAMPLES\STUFF\DEMO. P11", XBIOS (2), 0) 

SGET image$ ! enregistrer dans un string 

REPEAT 

ALERT 2," | Masque I ",1," OUI ", button | 

I 

HIDEM 

GOSUB gfa_l_fadeof_(XBIOS(2),200,0,10000,effect|, iXllllOOOOllllOOOO) 

SHOWM 

i 

INC effect| ! passons A l'effet suivant 

IF effect|=14 
effect|=1 
END IF 

l 

ALERT 2," | Continuer? | ",1," OUI | NON ", button| 

SPUT image$ 

UNTIL button|=2 
~XBIOS(6,L :V :palette$) 

Nous commenqons par indiquer le numero du premier effet de masque 

utilise (options_% = 1) puis nous sauvegardons la palette des couleurs 

d'origine a l'aide de POPPAL. 

La procedure PLOAD nous sert a charger l'image de demonstration 
DEMO.PI1 dans l'ecran (ou la memoire d'ecran) ainsi que sa palette de 
couleurs. Une boucle REPEAT... UNTIL permet de faire subir les 13 effets 
de masque a cette image. 

Nous entrons XBIOS(12) comme adresse de debut de l'ecran et nous 
souhaitons masquer 200 lignes (soit tout l'ecran) a l'aide du motif 
1111000011110000 (en binaire) qui n'interviendra que pour les effets 1 a 8. 
Le fait de saisir cette valeur en mode binaire facilite la saisie et la 
modification du motif du masque. 

Nous attribuons la valeur 10000 a 'speed_%' pour preciser la rapidite de la 

superposition du masque. La demonstration se poursuit jusqu'a ce que 
l'utilisateur clique sur le bouton NON du deuxieme panneau. La palette 
des couleurs d'origine est restauree avant de ressortir du programme. 



Graphisme: OFF 14 


Utilisation: 


Dossier: 


INLINE: 
Exemples: 


Syntaxe : 


Masquer une partie de l'ecran a l'aide d'une couleur 
quelconque quelle que soit la resolution ; le secteur 
d’ecran conceme est masque par de petits rectangles 
allant en diminuant. 

GFA_GLIB.3_0\GFA_GLIB.ALL\OFFXX.LST 
(quelle que soit la resolution) 

Ne necessite aucun fichier INLINE 

EXAMPLES\PROGRAMS.LOW\OFFXX.LST 
(basse resolution) 

EXAMPLES \ PROGRAMS. HIG \ OFFXX .LST 
(haute resolution) 


GOSUB gfa_offl4_(xl_%,yl_%,x2_%,y2_%, 
speed_%,col_%) 


Parametres: 

- xl_%,yl_% : 


Coordonnees du coin superieur gauche du secteur a masquer 


- x2 _ %,y2 _% : 

Coordonnees du coin inferieur droit du secteur a masquer. Remarquez qu'il 

est tout a fait possible d'intervertir xl_% et x2_ %, ainsi que yl_% et 

y2_ _% puisque la procedure est capable de rectifier cette interversion. 

II convient cependant de ne pas depasser les limites suivantes : 


>■ Basse resolution: 

>■ Moyenne resolution: 
Haute resolution: 


xl_ 

_%/x 2_. 

_% yl_ 

%/y2_% 

0- 

319 

0- 

199 

0- 

639 

0- 

199 

0- 

639 

0- 

399 



Aucune erreur ne se produit si vous entrez des valeurs en dehors de ces 
limites. 

- speed _% : 

Vitesse du processus de masquage : plus cette valeur est grande plus le 
processus est lent; cette vitesse depend egalement de la taille du secteur a 
masquer. 

- col _% : 

Couleur servant a remplir le secteur d'ecran qui est masque 

>» En basse resolution : 0-15 soit 16 couleurs differentes 

>■ En moyenne resolution : 0 - 3 soit 4 couleurs differentes 

>- En haute resolution : 0-1 soit 2 couleurs differentes (noir/blanc). 

Valeur retoumee: 

Aucune 

Description: 

La procedure OFF14 permet de masquer un secteur d'ecran quelconque : il 
est possible de parametrer la rapidite du processus et la couleur servant a 
masquer le secteur concerne. 

En ce qui concerne la couleur, il convient d'observer les memes regies 
qu'avec l'instruction COLOR du Gf A Basic. 

Exemple: EXAMPLES\PROGRAMS.LOW\OFFXX.LST 

MERGE: GFA_GLIB.3_0\GFA_GLIB.ALL\OFXX.LST 

G F A_G LIB. 3_0 \ G F A_G LIB. ALL \ PLO AD. LST 

GFA_GLIB.3_0\GFA_GLIB.ALL\POPPAL.LST 

GOSUB gfa_j>oppal_ 

palette$=lib_rv_$ 

GOSUB gfaj>load ("\EXAMPLES\STUFF\DEM0.PI1", XBIOS (2), 0) 

SGET image$ ! enregistrer dans un string 



ALERT 2," |Routine de masquel \0," 14 I 15 | 16 ",button| 

FOR i|=1 TO 20 
xlS=RANDOM(320) 
x2S=RANDOM(320) 
ylS=RANDOM(200) 
y2S=RANDOM(200) 
col|=RANDOM(16) 

IF button|=1 

GOSUB gfa_offl4_(xls,yls,x2s,y2s,0,col|) 

ELSE 

IF button|=2 

GOSUB gfa_off 15_ (xl S, yl S, x2 S, y2 S, 0, col |) 

ELSE 

GOSUB gfa_offl6_(xlS,ylS,x2S,y2&,0,col|) 

END IF 
ENDIF 
NEXT i| 

ALERT 2,"| Continuer? |",1," OUI | NON ",button| 

SPUT image$ 

UNTIL button|=2 
~XBIOS(6,L :V :palette$) 

Nous commenqons par sauvegarder la palette des couleurs d'origine a 
l'aide de POPPA L, apres quoi la procedure PLOAD nous sert a charger 
l'image de demonstration DEMO.PI1 dans l'ecran (ou la memoire d'ecran) 
ainsi que sa palette de couleurs. 

Une boucle REPEAT... UNTIL permet a l'utilisateur de lancer l'une des trois 
procedures OFF14, OFF15 ou OFF16 en cliquant sur le bouton 
correspondant dans le paneau qui s'affiche. Ceci etant fait, on voit 20 
secteurs differents disparaitre derriere le masque correspondant au 
procedure choisi ; la position et la couleur du masque s'appliquant a ces 
vingt secteurs sont selectionnees par un generateur de nombres aleatoires 
(RANDOM). 

On peut repeter cette demonstration autant de fois qu'on le souhaite ; il 
convient de cliquer sur le bouton 'NON' du deuxieme panneau pour mettre 
fin a la demonstration. 



Graphisme: 

Utilisation: 

Dossier: 

INLINE: 
Exemples: 

Syntaxe: 

Parametres: 

- xl_%,yl_% : 

- x2_%,y2_% : 

- speed _% : 

- col _ % : 

Valeur retoumee 
aucune 
Description: 
Exemple : 


OFF15 


Masquer une partie de l'ecran a l'aide d'une couleur 
quelconque quelle que soit la resolution ; le secteur 
d'ecran conceme est masque par des diagonales. 

GFA_GLIB.3_0\GFA_GLIB.ALL\OFFXX.LST 
(quelle que soit la resolution) 

Ne necessite aucun fichier INLINE 

EXAMPLES\PROGRAMS.LOW\OFFXX.LST 
(FPbasse resolution) 

EXAMPLESXPROGRAMS.HIG \ OFFXX .LST 
(haute resolution) 

GOSUB gfa_offl5_(xl_%,yl_%,x2_%,y2_ %, 

speed_%,col_%) 


voir OFF14 
voir OFF14 
voir OFF14 
voir OFF14 


voir OFF14 

voir OFFXX.LST avec OFF14 



Graphisme : OFF 16 


Utilisation: 

Dossier: 

INLINE : 
Exemples: 

Syntaxe: 

Parametres: 

- xl _ %,yl _% : 

- x2 _ %,y2 _ % : 

- speed _% : 

- col _% : 

Valeur retournee: 

Aucune 

Description: 
Exemple: 


Masquer une partie de l'ecran a l'aide d'une couleur 
quelconque quelle que soit la resolution ; le secteur 
d'ecran concerne est masque ligne par ligne, en partant 
du haut et du bas. 

GFA GLIB.3_0\GFA_GLIB.ALL\OFFXX.LST 
(quelle que soit la resolution) 

Ne necessite aucun fichier INLINE 

EXAMPLES\PROGRAMS.LOW\OFFXX.LST 
(basse resolution) 

EXAMPLES\PROGRAMS.HIG\OFFXX.LST 
(haute resolution) 

GOSUB gfa_offl6_(xl_%,yl_%,x2_%,y2_ %, 

speed_%,col_%) 


voir OFF14 
voir OFF14 
voir OFF14 
voir OFF14 


voir OFF! 4 


voir OFFXX.LST avec OFF14. 



Graphisme: 

Utilisation: 


Dossier: 


INLINE: 


Exemples: 


Syntaxe: 


L.FADEOV M.FADEOV H_FADEOV 


Prendre un secteur d'ecran pour le 'surimprimer' ou 
l'afficher sur une autre partie de l'ecran 

GFA_GLIB.3_0\GFA„GLIB.LOW\L_FADEOV.LST 
(basse resolution) 

GFA„GLIB.3„0\GFA„GLIB.MED\M_FADEOV.LST 
(moyenne resolution) 

GFA_GLIB.3_0\GFA_GLIB.HIG\H_FADEOV.LST 
(haute resolution) 

GFA_GLIB .3_0 \GF A_GLIB. LOW \ L_FADEO V .INL 
(L_FADEOV.LST) 

GFA_GLIB.3_0\GFA_GLIB.MED\M_FADEOV.INL 

(M_FADEOV.LST) 

GFA„GLIB.3_0\GFA_GLIB.HIG\H_FADEOV.INL 

(H_FADEOV.LST) 

EXAMPLES\PROGRAMS.LOW\L_FADEOV.LST 
(basse resolution) 

EXAMPLES\PROGRAMS.HIG\H .FADEOV.LST 
(haute resolution) 

GOSUB gfa_l_fadeov_(destadr_%/Sourceadr_%, 

rows_% / speed_%,options_%,pattem_%) 

GOSUB gfa_m_fadeov_(destadr_% / sourceadr_%, 

rows_%,speed_"^options_% / pattem_%) 

GOSUB gfa_h_fadeov_(destadr_%,sourceadr_ %, 

rows_% / speed_% / options_% / pattem_%) 



Parametres: 


- destadr _% : 

Adresse de la ligne d'ecran a partir de laquelle on souhaite afficher ou 

surimprimer un nombre rows_% de lignes ; void comment calculer 

l'adresse de la ligne: 

>- En basse et moyenne resolution : 

Adresse = XBIOS(2) + numero de la ligne * 160 

>- En haute resolution: 

Adresse = XBIOS(2) + numero de ligne * 80 

Par exemple, pour afficher/surimprimer un secteur a partir de la ligne 10 
en basse resolution, nous ecrivons : 

destadr_% = XBIOS(2) + 10 * 160 = XBIOS <2) + 1600 

Rappelons que XBIOS(2) vous donne l'adresse de debut de l'ecran. 

- sourceadr _% : 

Adresse de la ligne a partir de laquelle on va transferer un nombre 

'rows_%' de ligne vers l'adresse 'destadr_%'; en clair : le secteur d'ecran 

se trouvant sous sourceadr_% va etre transferer vers destadr—% pour 

affichage ou surimpression. 

On calcule cette adresse de la meme fac^on que destadr_ % (voir ci-dessus). 

- rows _% : 

Nombre de lignes a transferer ; evidemment, rien ne sera transfere si vous 
entrez 0 ligne! 

>- En basse et moyenne resolution : 0 - 200 lignes 

>- En haute resolution : 0 - 400 lignes. 

- speed _ % : 

Vitesse du processus de transfert/surimpression, comprise entre 0 
(le plus rapide) et 65535 (le plus lent) 



- options_% : 

Numero de l'effet 
possibles designes 
parametre options_ 

options_% == 1 : 


options_% == 2 : 

options_% == 3 : 

options_% == 4 : 

options_ % == 5 : 

options_% == 6 : 

options_% == 7 : 


options_% == 8 : 

options_% == 9 : 

options_% == 10 : 

options_ % -= 11 : 


de transfert/surimpression, a choisir parmi 13 effets 
par les valeurs 1 a 13, dont l'une est affectee au 
_%; void une breve description des ces 13 effets : 

Le nouveau secteur d'ecran apparait point par point 
et il est possible de rentrer un schema precisant 
l'ordre d'apparition des points 

Le secteur d'ecran apparait ligne par ligne, en 

commenqant par celle du haut 

Le secteur d'ecran apparait ligne par ligne, en 

commenqant simultanement en haut et en bas 

Le secteur d'ecran apparait ligne par ligne, en 

commenqant par celle du bas 

Le secteur d'ecran apparait colonne par colonne 
(verticalement), en commenqant par le bord gauche 

Le secteur d'ecran apparait colonne par colonne 
(verticalement), en commenqant par le bord droit 

Le secteur d'ecran apparait colonne par colonne 
(verticalement), en commenqant par les deux bords 
simultanement 

Le secteur d'ecran apparait bande par bande, 

apparaissant simultanement en haut et en bas 

Le secteur d'ecran apparait par des lignes 
augmentant altemativement a droite et a gauche 

Le secteur d'ecran semble apparaitre comme a travers 
un store 

Le secteur d'ecran apparait par des bouts de lignes 
qui prennent peu a peu toute la place 



options_% == 12 : Le secteur d'ecran apparait en 'montant' du bas, par 

'scrolling' 

options_% == 13 : Le secteur d'ecran apparait en 'descendant' d'en haut, 

par 'scrolling' 

Ces differents effets ressemblent fortement a ceux qui servent a faire 
disparaitre un secteur d'ecran avec L_FADEOF, M_FADEOF ou 
H_FADEOF. 

-pattern _ % : 

Motif de surimpression ; il convient d'entrer ici un nombre sur 16 bits (soit 
deOa 65535) qui determine le processus d'affichage/surimpression dans 
les effets 1 a 8 mentionnes ci-dessus. Ce parametre est ignore lorsque vous 
utilisez les effets 9 a 13, et vous lui donnez done une valeur quelconque, 
sans l'omettre pour autant. 

Valeur retoumee: 
lib_rv _% = 

Code d'erreur ; lib_rv_% retoume la valeur -1 si vous avez oublie de 

charger le fichier INLINE accompagnant la procedure et la valeur 0 si tout 
se deroule correctement. 

Description: 

les procedures L_FADEOV, M_FADEOV et H_FADEOV permettent 
d'afficher ou de surimprimer, en les depla^ant vers une nouvelle adresse, 
des secteurs horizontaux de l'ecran ou d'autres secteurs indiques par leur 
adresse. 

Vous pouvez ainsi afficher des images ou des secteurs d'image se trouvant 
dans la memoire vive ou qui y sont en cours d'elaboration. Lorsque 1 ecran 
contient deja quelque chose a l'endroit de destination, ce contenu disparait 
par 'surimpression' de la nouvelle image. Ceci rend plus attrayantes les 
demonstrations ou les presentations de graphiques. Pour que le processus 
se deroule normalement, il faut veiller a bien charger le bon procedure en 
fonction du degre de resolution de l'ecran utilise. 



Exemple: EXAMPLES\PROGRAMS.LOW\L_FADEOV.LST 

MERGE: GFA_GLIB.3_0\GFA_GLIB.LOW\L_FADEOV.LST 


GFA_GLIB.3_0\GFA_GLIB.ALL\PLOAD.LST 
GFA_GLIB.3_0\GFA_GLIB.ALL\POPPAL.LST 
effect|=1 ! commengons par l'effet 1 

GOSUB gfa_j>oppal_ 

palette$=lib_rv_$ 

GOSUB gfa_pload("\EXAMPLES\STUFF\DEMO. PI1",XBIOS(2),0) 

SGET image$ ! enregistrer dans un string 

I 

REPEAT 

CLS 

FOR i£=0 TO 319 STEP 4 ! delimitation du secteur k effacer 

COLOR i£/4 MOD 16 ! qui va c&ier la place 4 la nouvelle 

LINE 0,i&*0.625,i£,199 ! image se trouvant sous image$ 

LINE 319,199-i£*0.625,319-iS,0 ! et ce, par surimpression 

LINE i£,199,319,199-i£*0.625 
LINE 319-iS,0,0,i£*0.625 
NEXT is 

ALERT 2," | | Surimpression? ",1," OUI ",button| 

I 

HIDEM 

GOSUB gfa_l_fadeov_(XBIOS(2) ,V :image§,200,10000,effect|,&HF0F0) 

SHOWM 

i 

INC effect | 

IF effect|=14 ! autre effet de surimpression 

effect|=1 

ENDIF 

ALERT 2," | Continuer? | ",1," OUI | NON ", button| 

SPUT image$ 

UNTIL button|=2 
~XBIOS(6,L :V :palette$) 



Nous commenqons par indiquer le numero du premier effet utilise 

(options_% = 1) puis nous sauvegardons la palette des couleurs d'origine a 

l'aide de POPPAL. 

La procedure PLOAD nous sert a charger l'image de demonstration 
DEMO.PI1 dans l'ecran (ou la memoire d'ecran) ainsi que sa palette de 
couleurs. Qui plus est, nous enregistrons le contenu de l'ecran dans le 
string ’image$' grace a SGET, si bien que l'image se trouve maintenant dans 
la memoire a partir de l'adresse que nous recevons par V:image$. 

Attention: V 

Nous utilisons SGET et non GET. En effet, si l'on enregistre un ecran ou un 
secteur d'ecran dans un string a l'aide de GET, il faudra utiliser V:image$+6 
pour retrouver son adresse et le secteur d'ecran devra obligatoirement avoir 
la meme largeur que l'ecran lui-meme. 

Une boucle REPEAT... UNTIL permet de delimiter le secteur appele a ceder 
la place a la nouvelle image qui vient se surimprimer sur le contenu 
precedent (DEMO.PI1) des que l'utilisateur clique sur le bouton confirmant 
la surimpression. On peut repeter cette operation autant de fois qu'on le 
souhaite, ce qui fera d'ailleurs defiler les 13 effets de surimpression 
possibles. 

Nous entrons XBIOS(2) comme adresse de destination destadr_% car la 

nouvelle image doit venir s'afficher a partir de la premiere ligne de l'ecran. 
Comme nous souhaitons surimprimer l'ecran complet, nous entrons 200 

lignes (totalite de l'ecran) sous 'rows_%', en utilisant le motif F0F0 (ecriture 

hexadecimale). 

Pour preciser la rapidite de la surimpression, nous utilisons speed_% en le 

faisant varier a chaque nouveau parcourt de la boucle. La demonstration se 
poursuit jusqu'a ce que l'utilisateur clique sur le bouton 'NON' du 
deuxieme panneau. La palette des couleurs d'origine est restauree avant de 
ressortir du programme. 



Graphisme : L_GREYS M_GREYS 


Utilisation: 


Dossier: 


INLINE: 
Exemples: 


Syntaxe: 


Transformer une palette de couleurs en un degrade de 
gris ; chaque couleur est remplacee par un gris 
correspondant, plus ou moins soutenu, accompagne 
d'une valeur de luminosite. Une fois la procedure 
L_GREYS (ou M_GREYS) lance, la palette des couleurs 
d'origine ne contient plus que des valeurs grisees. 

GFA_GLIB.3_0\GFA_GLIB.LOW\L_GREYS.LST 
(basse resolution) 

GFA_GLIB.3_0\GFA_GLIB.MED\M_GREYS.LST 
(moyenne resolution) 

Ne necessite aucun fichier INLINE. 

EXAMPLES\PROGRAMS.LOW\L_GREYS.LST 
(basse resolution) 

GOSUB gfa_l_greys_(paladr_%,value_%) 

GOSUB gfa_m_greys_(paladr_%,value_%) 


Parametres: 

-paladr _% : 

Adresse d'une palette de couleurs se composant de 16 mots (quatre mots 
suffisent avec M_GREYS), contenant les informations relatives aux 16 (avec 
L_GREYS) ou aux 4 (avec M_GREYS) registres de couleur. Le format de la 
palette de couleurs a indiquer correspond a celui a utiliser lorsqu'on 
appelle XBIOS 6 (setpalette). 

Voici la structure de cette palette de couleurs : 


a un endroit quelconque de la memoire vive, on doit trouver 16 words (soit 
32 bits) entres consecutivement l'un derriere l'autre ; le premier mot 
contient les informations relatives au registre 0, le deuxieme mot contient 



les informations relatives au registre 2 etc... Chacun de ces mots ecrits en 
binaire se decompose de la faqon suivante : 

xxxxxrrrxgggxbbb 

x = bit non utilise (etat indiferent) 

rrr = 3 bits pour les valeurs rouges 

ggg = 3 bits pour les valeurs vertes (anglais : green) 

bbb = 3 bits pour les valeurs bleues. 

Si l'on s'en tient a l’instruction SETCOLOR 0,7,2,3 le mot devrait avoir 
l'aspect suivant (les bits inutilises etant mis sur 0): 

0000011100100011 

>- en ecriture hexadecimale : 0723 

en ecriture decimale : 1827 

- value _ % : 

Facteur d'intensite des couleurs, compris entre les valeurs 0 et 7 ; les autres 
valeurs seront traitees a l'aide de MOD 8, si bien qu'il en resultera 
forcement une valeur comprise entre 0 et 7. 

Le parametre value_% represente un facteur de luminosite qui permet 

d'influencer la luminosite de toute la palette finale : les valeurs faibles 
donnent des teintes plus sombres que les valeurs elevees. 

Valeur retoumee: 
aucune 

Description: 

Ces deux procedures L_GREYS et M_GREYS permettent de transformer la 
palette actuelle des couleurs en un degrade de gris, mais il ne s'agit 
absolument pas de convertir une image pour la rendre affichable sur un 
moniteur monochrome. II n'existe pas de procedure correspondant pour la 
haute resolution, puisque la conversion d'une palette de couleurs n'a de 
sens que dans l'affichage en couleur! 

II existe certes une procedure par degre de resolution, mais la procedure 
L_GREYS peut s'utiliser avec la moyenne resolution. La difference etant 



que L_GREYS est congu pour traiter une palette complete de 16 mots alors 
que M_GREYS ne traitera que les quatre premiers mots (car il n'y a que 
quatre couleurs). M_GREYS devrait logiquement s'averer plus rapide que 
L_GREYS. II n'est par contre pas interessant d'utiliser M^GREYS en basse 
resolution, car seuls les quaztre premiers registres des couleurs seront 
convertis en grises. 

Le facteur de luminosite value_ % determine la luminosite de l'ensemble 

de la palette resultante. Cette valeur s'additionne avec les valeurs de gris 
calculees auparavant, si bien que plus la valeur est elevee, plus le gris sera 
clair. 

La palette d'origine des couleurs demeure inchangee durant la conversion 
en grises : il n'est done pas necessaire de la restaurer apres l'appel de la 
procedure. 

Exemple: EXAMPLES\PROGRAMS.LOW\L_GREYS.LST 

MERGE : GFA_GLIB.3_0\GFA_GLIB.LOW \L_GRE YS. LST 

GFA_GLIB.3„0\GFA_GLIB.ALL\PLOAD.LST 

GFA_G LIB .3„0 \ GFA_GLIB. ALL \ POPP AL.LST 

GOSUB gfa_poppal_ 

opalette$=lib_rv_$ 

GOSUB gfajpload_("\EXAMPLES\STUFF\DEMO.PI1",XBIOS(2),0) 

GOSUB gfa_poppal_ 

npalette$=lib_rv_$ 

luminosite|=0 ! facteur de luminosity d'abord sur 0 

REPEAT 

~XBI0S(6,L :V :npalette$) ! determiner la palette des couleurs 
ALERT 2,"|transformer en grises? | ",1," OUI ",button| 

I 

GOSUB gfa_l_greys_(V :npalette$,luminosite|) 

i 

IF luminosite|=6 ! facteur de luminosite pour le 

luminosite|=0 ! prochain parcours de la boucle 

ELSE 

INC luminosite| 

ENDIF 

ALERT 2, "| Continuer? r,l, M OUI | NON 11 ,button | 



UNTIL button|=2 
~XBIOS(6,L :V :opalette$) 

Nous commengons par sauvegarder la palette des couleurs d'origine grace 
a POPPAL dans la variable opalette$, puis nous nous servons de PLOAD 
pour charger l'image de demonstration se trouvant dans DEMO.PI1 ainsi 
que sa palette de couleurs. Un nouvel appel de la procedure POPPAL 
permet de fixer la palette de l'image Degas/Elite de DEMO.PI1 et de 
l'enregistrer dans la variable-string npalette$. 

Dans la boucle REPEAT... UNTIL qui suit, nous fixons d'abord la palette 
originate de l'image; la procedure L_GREYS est lance lorsque l'utilisateur 

clique sur le bouton 'OUT du panneau qui apparait, ce qui lance la 
conversion de la palette des couleurs en une gamme de gris. 

On peut repeter autant de fois qu'on le souhaite cette demonstration, le 
facteur de luminosite variant a chaque fois. 

Pour sortir de la boucle, il suffit de cliquer sur le bouton 'NON' du 
deuxieme panneau ; avant de se terminer, le programme prend soin de 
restaurer la palette d'origine par le biais de 'opalette$'. 



GOSUB gfa_j>oppal_ 

opalette$=lib rv $ 

GOSUB gfaj>load_("\EXAMPLES\STUFF\DEM0.PIl",XBI0S(2) ,0) 

GOSUB gfajpoppal_ 

npalette$=lib_rv_$ 

i 

speed|=8 ! vitesse du noircissement puis du r6affichage 

REPEAT 

ALERT 2,"|noircir/r6afficher| ",1," OUI ",button| 

GOSDB gfa_l_cpoff_(V :npalette$,speed|) 

I 

GOSUB gfa_l_cpon_(V :npalette$,speed|) 

I 

IF speed|=0 ! determiner la vitesse du processus pour le 

speed|=8 ! prochain parcours de la boucle 

ELSE 

DEC speed| 

END IF 

ALERT 2,"| Continuer? |",1," OUI | NON ", button| 

UNTIL button|=2 
~XBIOS(6,L :V :opalette$) 

Nous commengons par sauvegarder la palette des couleurs d'origine grace 
a POPPAL dans la variable ’opalette$', puis nous nous servons de PLOAD 
pour charger l'image de demonstration se trouvant dans DEMO.PI1 ainsi 
que sa palette de couleurs. 

Apres la confirmation donnee en cliquant dans le bouton 'OUT de la boite 
de dialogue, le programme lance L_CPOFF puis L_CPON l'un a la suite de 
l’autre, ce qui fait disparaitre puis reapparaitre l'image. A chacun de ces 
appels, nous rappelons la palette des couleurs telle qu'elle etait apres le 
chargement de l'image a l'aide de POPPAL. Cette palette est sauvegardee 
dans la variable-string 'npalette$', et l'appel d'un de ces procedures ne la 
modifie aucunement, si bien que nous pouvons la reutiliser a volonte. 

Le tout se deroule dans une boucle REPEAT... UNTIL, en faisant varier la 
vitesse d'execution a chaque parcours de la boucle. 



Pour sortir de la boucle, il suffit de cliquer sur le bouton ’NON' de la 
deuxieme boite de dialogue ; avant de se terminer, le programme prend 
soin de restaurer la palette d’origine qui se trouve sous 'opalette$\ 



Graphisme L_CPOFF_CPOFF M_CPOFF 


Utilisation: Faire disparaitre une image en faisant passer 

progressivement tous ses registres de couleur au noir. 

Dossier: GFA_GLIB.3_0\GFA_GLIB.LOW\L_CPOFF.LST 

(basse resolution) 

G F A_GLIB. 3_0 \ G F A_GLIB. MED \ M_CPOFF. LST 
(moyenne resolution) 

INLINE : Ne necessite aucun fichier INLINE. 

Exemples: EXAMPLES/PROGRAMS.LOW\L_CPOXX.LST 

(basse resolution) 

Syntaxe : GOSUB gfa_l_cpoff_(paladr_%,speed_%) 

GOSUB gfa_m_cpoff_(paladr_%,speed_%) 

Parametres: 

-paladr _% : 

Adresse d'une palette de couleurs se composant de 16 mots (quatre mots 
suffisent avec M_CPOFF), contenant les informations relatives aux 16 (avec 
L_CPOFF) ou aux 4 (avec M_CPOFF) registres de couleur. Le format de la 
palette de couleurs est le meme que pour L^GREYS et M_GREYS. 

- speed _ % : 

Vitesse du processus de noircissage : plus la valeur est petite, plus le 
processus est rapide et inversement : plus la valeur est grande, plus le 
processus est lent (valeur minimale :0). 

La valeur figurant dans la procedure engendre le meme delai entre les 
etapes du processus de noircissage qu'avec l'instruction PAUSE du GfA 
Basic. 



Valeur retoumee: 


aucune 
Description: 

Ces deux procedures L_CPOFF et M_CPOFF permettent d'amener 
progressivement jusqu'au noir les differentes couleurs composant la palette 
actuelle (ou une autre, mais cela n'a guere de sens). La palette d'origine des 
couleurs demeure inchangee durant ce processus : il n'est done pas 
necessaire de la restaurer apres l'appel de la procedure si on en a encore 
besoin pour d'autres taches. 

II existe certes une procedure par degre de resolution, mais la procedure 
L_CPOFF peut s'utiliser avec la moyenne resolution. La difference etant 
que L_CPOFF est conc;u pour traiter une palette complete de 16 mots alors 
que M_CPOFF ne traitera que les quatre premiers mots (car il n'y a que 
quatre couleurs). M_CPOFF devrait logiquement s'averer plus rapide que 
L_CPOFF. Il n'est par contre pas interessant d'utiliser M CPOFF en basse 
resolution, car seuls les quatre premiers registres des couleurs vireraient au 
noir. 

Il est possible d'utiliser ces deux procedures conjointement avec L_CPON 
et M_CPON pour passer d'une image a l'autre : on fait disparaitre la 
premiere image en la noircissant et on elabore la deuxieme image sur 
l'ecran noir (l'apparition de l'image reste invisible puisque toutes les 
couleurs sont fixees sur le noir); il suffit ensuite de 'reveler' cette deuxieme 
image en lui attribuant ses couleurs. Cela ressemble alors a un fondu- 
enchaine. 

Ce genre de procedure n'existe pas pour la haute resolution, puisque le 
noircissement de la palette des couleurs serait impossible. 

Exemple: EXAMPLES\PROGRAMS.LOW\L_CPOXX.LST 

MERGE: GFA_GLIB.3_0\GFA_GLIB.LOW\L CPOFF.LST 

GFA_GLIB.3_0\GFA„GLIB.LOW\L CPON.LST 

GFA_GLIB.3„0\GFA GLIB.ALLXPLOAD.LST 


GFA GLIB.3 (AGFA GLIB.ALLXPOPPAL.LST 




Graphisme: L_CPON M.CPON 


Utilisation : Faire reapparaitre une image en faisant repasser 

progressivement tous ses registres du Noir jusqu'a leur 
couleur normale (correspondant a la palette des 
couleurs). 

Dossier : GFA„GLIB.3_0\GFA_GLIB.LOW\L„CPON.LST 

(basse resolution) 

GFA„GLIB.3_0\GFA_GLIB.MED\M.CPON.LST 
(moyenne resolution) 

INLINE : Ne necessite aucun fichier INLINE. 

Exemples : EXAMPLES\PROGRAMS.LOW\L„CPOXX.LST 

(basse resolution) 

Syntaxe : GOSUB gfa_l_cpon_(paladr_%,speed_%) 

GOSUB gfa_m_cpon_(paladr_%,speed_%) 

Parametres: 

-paladr _% : 

Adresse d'une palette de couleurs se composant de 16 mots (quatre mots 
suffisent avec M_CPON), contenant les informations relatives aux 16 (avec 
L_CPON) ou aux 4 (avec M_CPON) registres de couleur. Le format de la 
palette de couleurs est le meme que pour I. GREYS et M_ GREYS. 

- speed _% : 

Vitesse du processus de remontee de l'image : plus la valeur est petite, plus 
le processus est rapide et inversement : plus la valeur est grande, plus le 
processus est lent (valeur minimale :0). 

La valeur figurant dans la procedure engendre le meme delai entre les 
etapes du processus de remontee de l'image qu'avec l'instruction PAUSE 
du GfA Basic. 



Valeur retoumee: 


Aucune 

Description: 

Ces deux procedures L_CPON et M_CPON permettent de faire 'remonter' 
progressivement, depuis le noir, les differentes couleurs composant la 
palette actuelle de l'image. La palette d'origine des couleurs demeure 
inchangee durant ce processus : il n'est done pas necessaire de la restaurer 
apres l'appel de la procedure si on en a encore besoin pour d'autres taches. 
Tout cela n'a de sens que si l'ensemble des registres de couleur etaient sur le 
noir avant de lancer l'un de ces procedures. 

II existe une procedure pour chaque degre de resolution, sauf pour la haute 
resolution, puisqu'il serait impossible de faire 'monter' la palette des 
couleurs. 

La procedure L_CPON peut s’utiliser aussi en moyenne resolution. La 
difference etant que L_CPON est conqu pour traiter une palette complete 
de 16 mots alors que M_CPON ne traitera que les quatre premiers mots (car 
il n'y a que quatre couleurs). M_CPON devrait logiquement s averer plus 
rapide que L_CPON. Il n'est par contre pas interessant d'utiliser M_CPON 
en basse resolution, car seuls les quatre premiers registres des couleurs 
seraient traites. 

Il est possible d'utiliser ces deux procedures conjointement avec L_CPOFF 
et M_CPOFF pour passer d'une image a l'autre : on fait disparaitre la 
premiere image en la noircissant et on elabore la deuxieme image sur 
l'ecran noir (l'apparition de l'image reste invisible puisque toutes les 
couleurs sont fixees sur le noir); il suffit ensuite de reveler cette deuxieme 
image en lui attribuant ses couleurs. Cela ressemble alors a un fondu- 
enchaine. 

Exemple : voir L_CPOXX.LST sous L_CPOFF et M_CPOFF. 



Graphisme : L_SCONV M_SCONV H_SCONV 


Utilisation: 


Dossier: 


INLINE: 


Exemples: 


Syntaxe: 


Conversion d'une police de 40 caract&res qui sera 
ensuite utilisee avec les procedures L_HSCROL, 
M_HSCROL ou H_SCROL pour faire defiler un texte . 

GFA_GLIB.3„0\GFA_GLIB.LOW\L_SCONV.LST 
(basse resolution) 

GFA_GLIB.3_0\GFA_GLIB.MED\M_SCONV 
LST(moyenne resolution) 

GFA_G LIB. 3_0 \ GF A_GLIB.HIG \H_SCONV. LST 
(haute resolution) 

GFA_GLIB.3_0\GFA_GLIB.LOW\L_SCONV.INL 

(L_SCONV.LST) 

GFA„GLIB.3_0\GFA_GLIB.MED\M_SCONV.INL 

(M_SCONV.LST) 

GFA_GLIB.3_0\GFA_GLIB.HIG\H SCONV.INL 
(H_SCONV .LST) 

EXAMPLES \ PROGRAMS.LOW\ L_SCOHSC. LST 
(basse resolution) 

EXAMPLESNPROGRAMS.HIG\H SCOHSC.LST 
(haute resolution) 

GOSUB gfa_l_sconv_(sourceadr_%,destadr_%) 

GOSUB gfa_m_sconv_(sourceadr_%,destadr_%) 

GOSUB gfa_h_sconv_(sourceadr_%,destadr_%) 



Parametres: 


- sourceadr _% : 

Adresse de la ligne sur laquelle commence la premiere serie de 20 
caracteres de la police ; on calcule cette adresse de la meme faqon que sous 
L_OFFxx, M_OFFxx ou H_OFFxx. 

- destadr _% : 

Adresse d'un buffer qui recevra les donnees correspondant a la police de 
caracteres convertie la masse d'informations necessaires pour representer 
une police de caracteres varie en fonction du degre de resolution de 1 ecran, 
ce qui fait aussi varier la taille qu’il convient de donner au buffer : 

>■ basse resolution : 81920 octets 

>- moyenne resolution : 30720 octets 
>- haute resolution : 30720 octets 

II est possible de sauvegarder les polices de caracteres apres leur 
conversion, et le nombre des octets vous indique la taille des fichiers a 
prevoir. 

Valeur retoumee: 

lib_rv_% = code d'erreur ; lib_rv_% retourne la valeur -1 si vous avez 

oublie de charger le fichier INLINE accompagnant la procedure et la valeur 
0 si tout se deroule correctement. 

Description: 

la procedure L_SCONV sert a convertir une police de caracteres de 16 
couleurs pour la reutiliser avec L_HSCROL. 

La procedure M_SCONV sert a convertir une police de caracteres de 4 
couleurs pour la reutiliser avec M JHSCROL. 

La procedure H_SCONV sert a convertir une police de caracteres de 2 
couleurs pour la reutiliser avec H_HSCROL. 



Les polices ainsi converties doivent etre utilisee sous la procedure 
corespondant: il est impossible par exemple d'utiliser une police convertie 
a l'aide de L_SCONV avec la procedure M HSCROL. 

Lorsque l'on souhaite creer une nouvelle police de caracteres, il convient de 
le faire dans la resolution adequate. Attention : ces procedures ne 
convertissent que 40 caracteres, qui doivent obligatoirement etre alignes 
l'un contre l'autre sur deux lignes de 20 signes. 

La taille des caracteres varie en fonction de la resolution : 

>- basse resolution : 16x16 pixels 

>- moyenne resolution : 32 x 16 pixels 
>- haute resolution : 32 x 32 pixels 

Les caracteres doivent etre alignes dans l'ordre suivant: 

ABCDEFGHIJKLMNOPQRST 

UVWXYZ0123456789!.: 

Vous trouverez un exemple de police de caracteres dans le fichier 
DEMO.PI1, qui contient une police de ce genre congue pour la basse 
resolution. 

Exemple : EXAMPLES\PROGRAMS.LOW\SCOHSC.LST 
MERGE: GFA_GLIB.3_0\GFA_GLIB.LOW\L_SCONV.LST 
GFA_GUB.3_0\GFA_GLIB.LOW\L HSCROL.LST 
GFA_GLIB.3_0\GFA_GLIB.ALL\PLOAD.LST 
GFA_GLIB.3_0\GFA_GLIB.ALL\POPPAL.LST 
DIM buffer_%(20479) linstaller un buffer de 81920 octets 

I 

GOSUB gfajpoppal_ 

palette$=lib_rv_$ 

GOSUB gfaj>load_("\EXAMPLES\STUFF\DEM0.PIl",XBI0S(2) ,0) 

I 

GOSUB gfa_l_sconv_(XBIOS (2) +168* 160,V :buffer_% (0)) 



1 BSAVE "F0NT2.FTL" ,V :buffer_% (0), 81920 Isauvegarder la police de 

caracteres 

txt $="appuyez sur une touche pour interrompre cette demonstration" 

i 

GOSUB gfa_l_hscrol_(XBIOS (2)+10*160,V :buffer_%(0) ,txt_$,0) 

l 

~XBIOS(6,L :V :palette$) 

Ce petit programme de demonstration sert a la fois pour L_SCONV et pour 
L_HSCROL. Nous commenqons par installer un buffer de 81920 octets qui 
recevra par la suite la police de caracteres convertie, puis nous 
sauvegardons la palette des couleurs d'origine a l'aide de POPPAL. 

La procedure PLOAD nous sert a charger l'image de demonstration 
DEMO.PI1 dans la memoire d'ecran (adresse XBIOS(2)) ainsi que sa palette 
de couleurs. 

L'image de demonstration contient une police de caracteres, a partir de la 
ligne 168, police que nous allons convertir (deuxieme appel de L_SCONV) 
pour la reprendre ensuite sous LJHSCROL. 

'sourceadr_%' contient l'adresse de la 168eme ligne de l'ecran (adresse de 

debut XBIOS(2) + 160 octets par ligne * 168 lignes) 

'destadr_%' contient l'adresse de destination de la police convertie, qui est, 

comme nous l'avons dit, l'adresse du buffer commengant a 
'V :buffer_%(0)'. 

Les caracteres etant convertis, nous pouvons les sauvegarder a laide de 
l'instruction BSAVE afin de pouvoir eventuellement nous en resservir par 
la suite. II est ainsi possible de se constituer une collection de polices de 
caracteres deja converties, que l'on pourra appeler directement dans un 
programme pour la faire toumer sous une des procedures HSCROL. 

La sauvegarde n'a pas lieu dans notre exemple ci-dessus, puisque les lignes 
BSAVE sont introduites par une apostrophe caracterisant les commentaires. 

Apres la conversion, nous entrons un texte dans la variable-string 'txt—$' et 
nous langons la procedure L_HSCROL. A partir de ce moment, le texte 
defile continuellement grace a une boucle sans fin (options T _%=0). Seule 
possibility d'en ressortir : appuyer sur une touche quelconque, ce qui 



permet de ressortir immediatement de LJHSCROL. Nous prenons soin de 
restaurer la palette des couleurs d'origine avant de sortir du programme. 



Graphisme : L_HSCROL M_HSCROL H_HSCROL 


Utilisation: 


Dossier: 


INLINE: 


Exemples: 


Syntaxe: 


Ces procedures permettent de faire defiler 
horizon ta lenient (scrolling) un texte memorise dans un 
string, en utilisant une police de caracteres convertie a 
l’aide de L_SCONV, M_SCONV ou HJ3CONV. 

GFA_GLIB.3_0\GFA_GLIB.LOW\L_HSCROL.LST 

(basse resolution) 

GFA_GLIB.3_0\GFA_GLIB.MED\M_HSCROL.LST 

(moyenne resolution) 

GFA_GLIB.3_0\GFA_GLIB.HIG\H_HSCROL.LST 
(haute resolution) 

G F A_G LIB. 3_0 \ GF A_GLIB. LOW \ L_HSCROL. INL 
(L_HSCROL.LST) 

GFA_GLIB.3_0\GFA_GLIB.MED\M_HSCROL.INL 

(M_HSCROL.LST) 

GFA_GLIB.3_0\GFA_GLIB.HIG\FI_HSCROL.INL 

(H_HSCROL.LST) 

EXAMPLES\PROGRAMS.LOW\L_SCOHSC.LST 
(basse resolution) 

EXAMPLES \ PROGR AMS.FIIG \ H_SCOHSC.LST 
(haute resolution) 

GOSUB gfa_l_hscrol_(destadr_%,sourceadr—%, 

txt_$,options_%) 

GOSUB gfa_m_hscrol_(destadr_%,sourceadr—%, 

txt_$,options_%) 

GOSUB gfa_h_hscrol_(destadr_%,sourceadr —%, 

txt_$,options_%) 



Parametres: 


- destadr _% : 

Adresse de la ligne de pixels a partir de laquelle on souhaite faire defiler le 
texte ; cette adresse se calcule exactement comme sous les procedures 
LOFF, M_OFF ou H_OFF. 

- sourceadr _ % : 

Adresse des donnees de la police de caracteres convertie ; comme les 
procedures HSCROL tournent obligatoirement avec des polices de 
caracteres converties a l'aide des procedures SCONV, il convient d'indiquer 
ici l’adresse a laquelle se trouve une telle police dans la memoire vive (en 
tenant bien compte du degre de resolution!). 

- txt _ $ : 


Chaine de caracteres qui va defiler et qui peut avoir une longueur 
(quasiment) quelconque. 

- options_% : 

Ce parametre sert a preciser la duree pendant laquelle le texte va defiler ; il 
doit obligatoirement prendre une des valeurs suivantes : 

>• options_% == 0 : Le texte defile sans arret a l'ecran, grace a une boucle 

sans fin ; pour en ressortir, il faut appuyer sur une 
touche quelconque; 

options % < 0 : Lorsque le parametre 'options %' a une valeur 

negative, le texte ne defile qu'une fois a l'ecran, et il 
est impossible d'interrompre ce defilement; 

>■ options % > 0 : Lorsque le parametre 'options %' a une valeur 

positive, le texte ne defile egalement qu'une fois a 
l'ecran, mais il est possible d'interrompre ce 
defilement avant qu'il ne le fasse tout seul. 



Valeur retoumee: 


lib_rv _% = 

Code d'erreur ; lib_rv_% retoume la valeur -1 si vous avez oublie de 

charger le fichier INLINE accompagnant la procedure et la valeur 0 si tout 
se deroule correctement. 

Description: 

La procedure L_HSCROL permet de faire defiler un texte a l'ecran, en 
utilisant une police de caracteres convertie auparavant a l'aide de la 
procedure L_SCONV. 

La procedure M_HSCROL permet de faire defiler un texte, avec une police 
de caracteres convertie a l'aide de la procedure M_ SCONV. 

La procedure H_HSCROL permet de faire defiler un texte, avec une police 
de caracteres convertie a l'aide de la procedure H_.SCONV. 

Attention: V 

Le string a faire defiler ne doit contenir que des caracteres contenus dans la 
police de caracteres ; les autres caracteres seront rempiaces par des espaces 
vides et n'apparaitront pas a l'ecran. La procedure ne distingue pas entre 
minuscules et majuscules : que vous entriez un 'a' ou un ’A’, le resultat sera 
le meme, c'est Ie premier caractere de la police qui apparaitre a lecran. 
Void done la suite des caracteres utilisables : 

ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghi jklmnopqrstuvwxyz0123456789! . : 

Exemple : voir SCOHSC.LST sous L_SCONV, M_SCONV ou H_SCONV. 



Graphisme: 

L_VCONV M_VCONV H.VCONV 

Utilisation : 

Conversion d’une police de 40 caracteres qui sera 
ensuite utilisee avec les procedures L.VSCROL, 
MJVSCROL ou H_SCROL pour faire defiler un texte. 

Dossier: 

GFA GLIB.3_0\GFA_GLIB.LOW\L_VCONV.LST 

(basse resolution) 


GFA_GLIB.3_0\GFA_GLIB.MED\M_VCONV.LST 

(moyenne resolution) 


GFA_GLIB.3_0\GFA_GLIB.HIG\H_VCONV.LST 

(haute resolution) 

INLINE: 

Ne necessite aucun fichier INLINE 

Exemples: 

EXAMPLES\PROGRAMS.LOW\L_VSCROLL.LST 
(basse resolution) 


EXAMPLES \ PROGR AMS.HIG \H_V SCROLL. LST 
(haute resolution) 

Syntaxe: 

GOSUB 

gfa 1 vconv_(screenadr_%,fontadr—%,y —%) 

GOSUB 

gfa m vconv_(screenadr_%,fontadr—%,y— %) 

GOSUB 

gfa h vconv_(screenadr_%,fontadr—%,y— %) 

Parametres : 


- screenadr _ % •’ 


Adresse de l'ecran ; ce parametre donne l'adresse de la memoire de l’ecran 
sur lequel s'affiche la police de caracteres a convertir ; en pnncipe, on entre 
ici XBIOS(2) qui est l'adresse de l'ecran actuellement visible. 



II est cependant possible d'entrer ici une autre adresse si la police a conver- 
tir se trouve dans un deuxieme ecran. 

-fontadr _% ; 

Adresse d'un buffer qui recevra les donnees correspondant a la police de 
caracteres convertie ; la quantite d'informations necessaires pour 
representer une police de caracteres varie en fonction du degre de re¬ 
solution de l'ecran, ce qui fait aussi varier la taille qu'il convient de donner 
au buffer: 

>~ basse resolution : 5120 octets 

moyenne resolution : 5120 octets 

>• haute resolution : 10240 octets 

II est possible de sauvegarder les polices de caracteres apres leur conver¬ 
sion, et le nombre des octets vous indique la taille des fichiers a prevoir. 

Le buffer appele a contenir la police de caracteres apres sa conversion ne 
saurait en aucun cas etre plus petit que les valeurs indiques ci-dessus, faute 
de quoi les donnees viendraient ecraser d'autres donnees importantes. 


-!/_%.• 

Numero de la ligne contenant la premiere serie de caracteres ; selon le 

degre de resolution, y_% doit etre compris entre les minima et maxima 

suivants: 

basse resolution : 0-168 

>• moyenne resolution : 0-168 
>■ haute resolution : 0 -272 

Si vous depassez ces valeurs, la conversion ne se fait pas et lib_rv_% ren- 

voie la valeur 1 ; si vous entrez une valeur correcte, lib_rv_% renvoie la 

valeur 0 et la conversion se deroule normalement. 



Valeur retoumee: 


lib^rv _ % = 

Code d'erreur ; lib_rv_% retoume la valeur -1 si vous avez oublie de 

charger le fichier INLINE accompagnant la procedure et la valeur 0 si tout 
se deroule correctement. 

Description: 

La procedure L_VCONV sert a convertir une police de caracteres de 16 
couleurs pour la reutiliser avec L_VSCROL. 

La procedure M_VCONV sert a convertir une police de caracteres de 4 
couleurs pour la reutiliser avec M_VSCROL. 

La procedure H_VCONV sert a convertir une police de caracteres de 2 
couleurs pour la reutiliser avec H_VSCROL. 

Les polices ainsi converties doivent etre utilisee sous la procedure cores- 
pondant : il est impossible par exemple d'utiliser une police convertie a 
l'aide de L_VCONV avec la procedure M_ VSCROL. 

Lorsque l'on souhaite creer une nouvelle police de caracteres, il convient de 
le faire dans la resolution adequate. Attention : ces procedures ne conver- 
tissent que 40 caracteres, qui doivent obligatoirement etre alignes l'un 
contre l'autre sur deux lignes de 20 signes. 

La taille des caracteres varie en fonction de la resolution : 

>* basse resolution : 16x16 pixels 

>- moyenne resolution : 32x16 pixels 

>■ haute resolution : 32 x 32 pixels 

Les caracteres doivent etre alignes dans l'ordre suivant: 

ABCDEFGHIJKLMNOPQRST 


UVWXYZ0123456789!.: 



Vous trouverez un exemple de police de caracteres dans le fichier 
DEMO.PI1, qui contient une police de ce genre congue pour la basse reso¬ 
lution. 

En haute resolution, il convient de creer de plus 40 masques pour les ca¬ 
racteres correspondant. II faut ranger ces masques exactement dans le 
meme ordre que les caracteres ; ils doivent commencer juste au-dessous du 
caractere correspondant. On commence done par entrer les 40 caracteres 
sur deux lignes, et juste au-dessous, on entre les 40 'masques de caracteres', 
sur deux lignes supplementaires. 

Ces masques sont indispensables en haute resolution, car ils permettent de 
specifier quelle partie du caractere recouvre l'arriere-plan et quelle partie le 
laisse au contraire transparaitre. Les parties blanches dun caractere peu- 
vent servir a la fois de couleur et de 'lucame'. 

Ces masques sont crees comme ceux des procedures shape en haute reso¬ 
lution. 

Chaque masque a la meme taille que le caractere correspondant, e'est-a-dire 
32 x 32 pixels ; les parties du caractere appelees a masquer l'arriere-plan 
doivent etre marquees comme des bits actives. 

L'image contenue dans DEMO.PIC contient une police de caracteres de ce 
type, accompagnee de ses masques, qui sert d'exemple dans le programme 
de demonstration H_VSCROL. 

Exemple: EXAMPLES\PROGRAMS.LOW\L_VSCROL.LST 

MERGE: GFA_GLIB.3_0\GFA_GLIB.LOW\L_VCONV.LST 

GFA_GLIB .3_0 \ GF A_GLIB.LOW \L_V SCROL.LST 
GFA_GLIB.3_0\GFA_GLIB.ALL\PLOAD.LST 
GFA_GLIB.3_0\GFA_GLIB.ALL\POPPAL.LST 



! installer un buffer de 5120 octets 


INLINE fontadr_%,5120 

l 

INLINE bufadr %,5536 


! buffer pour LVSCROL 


GOSUB gfa_poppal_ 

palette $=1 ib_rv_$ 

GOSUB gfa_pload_("\EXAMPLES\STUFF\DEMO.PIl",XBIOS(2),0) 

GOSUB gfa_l_vconv_(XBIOS (2), fontadr_%, 136) 

I 

' BSAVE "VFONT.FNT",fontadr_%,5120 Isauvegarder la police de caracteres 

txt_$="appuyez sur une touche pour interrompre cette demonstration" 

i 

GOSUB gfa_l_vscrol_(XBIOS(2), fontadr_%,bufadr_%, 152,11,173,txt_$, 0) 

r 

~XBIOS(6,L :V :palette$) 


Ce programme de demonstration sert a la fois pour L_VCONV et pour 
L_VSCROL. Nous commengons par installer un buffer de 5120 octets (a 
l'aide d'une instruction INLINE) qui recevra par la suite la police de carac¬ 
teres convertie. Nous installons un deuxieme buffer par INLINE, qui ser- 
vira sous L_VSCROL a enregistre l'arriere-plan recouvert par le texte, 
puisqu'il faudra le restaurer a la fin de L_VSCROL, de fagon a ne laisser au- 
cune trace du texte a l'ecran. Pour calculer la taille du buffer, reportez-vous 
aux formules donnees sous L VSCROL, M_VSCROL et H_SCROL. 


Nous sauvegardons ensuite la palette des couleurs d'origine a l'aide de 
POPPAL et la procedure PLOAD nous sert a charger l'image de 
demonstration DEMO.PI1 dans la memoire d'ecran (adresse XBIOS(2)) 
ainsi que sa palette de couleurs. 

L'image de demonstration contient une police de caracteres, a partir de la 
ligne 136, police que nous allons convertir (appel de L_VCONV) pour la 
reprendre ensuite sous L_VSCROL. Comme cette police de caracteres se 
trouve sur l'ecran visible, nous indiquons l'adresse de ce dernier (XBIOS(2)) 
sous 'screenadr_%'. 



y_% prend la valeur 136 puisque la police de caracteres commence sur la 

136eme ligne. Pour que la police convertie parvienne dans le buffer qui lui 
est reserve, il convient d'en indiquer l'adresse (fontadr_%). 

Les caracteres etant convertis, nous pouvons les sauvegarder & l'aide de 
l'instruction BSAVE afin de pouvoir eventuellement nous en resservir par 
la suite. II est ainsi possible de se constituer une collection de polices de ca¬ 
racteres deja converges, que l'on pourra appeler directement dans un pro¬ 
gramme pour la faire tourner sous un des procedures VSCROL. 

La sauvegarde n'a pas lieu dans notre exemple ci-dessus, puisque les lignes 
BSAVE sont introduites par une apostrophe caracterisant les commentaires. 

Apres la conversion, nous entrons un texte dans la variable-string txt_$ : la 

longueur de ce texte n'est limitee que par la longueur maximale admise 
pour un string. 

Attention: V 

Le string peut certes contenir n'importe quel code appartenant au tableau 
ASCII, mais seuls les 40 signes mentionnes ci-dessus pourront defiler. Tout 
autre caractere sera remplace par un espace vide, a l'exception des 
minuscules qui seront assimilees a des majuscules. 

Nous lanqons L_VSCROL (voir ci-apres) en indiquant l'adresse de l’ecran 
visible (XBIOS(2)) sous 'screenadr_%' de faqon a ce que le texte se mette 
bien a defiler sur l'ecran actuellement visible (belle lapalissade!). 

I 

Nous avons affecte les valeurs 152 et 11 respectivement aux parametres 

x_% et y_% : il s'agit des coordonnees du coin superieur gauche du sec- 

teur d'ecran dans lequel le texte se met a defiler : nous avons defini pour 

cela un secteur de 173 lignes (pixel) a partir de la ligne 11 (rows_%=173). 

Le texte se met done a defiler dans un rectangle defini par les sommets sui- 
vants : 152,11 et 167,183. 

On peut ressortir de L_VSCROL en appuyant sur une touche quelconque 

(options_% = 0) ; ceci etant fait, l'arriere-plan est restaure ainsi que la 

palette des couleurs d'origine par XBIOS(6) et le programme prend fin. 



Graphisme 

Utilisation: 


Dossier: 


INLINE: 


Exemples: 


Syntaxe: 


L_VSCROL M_VSCROL H_VSCROL 

Ces procedures permettent de faire defiler 
verticalement (scrolling) un texte memorise dans un 
string, en utilisant une police de caracteres convertie a 
l'aide de LJVCONV, M_VCONV ou H_VCONV. 

GFA_GLIB.3_0\GFA_GLIB.LOW\L_VSCROL.LST 
(basse resolution) 

GFA_GLIB.3_0\GFA_GLIB.MED\M_VSCROL.LST 
(moyenne resolution) 

GFA GLIB.3_0\GFA_GLIB.HIG\H_VSCROL.LST 
(haute resolution) 

GFA_GLIB.3„0\GFA_GLIB.LOW\L_VSCROL.INL 

(L_VSCROL.LST) 

GFA_GLIB.3_0\GFA_GLIB.MED\M_VSCROL.INL 

(M_VSCROL.LST) 

GFA_GLIB.3J)\GFA_GLIB.HIG\H_VSCROL.INL 

(H_VSCROL.LST) 

EXAMPLES\PROGRAMS.LOW\L_ VSCROL.LST 
(basse resolution) 

EXAMPLES \PROGRAMS.HIG \H VSCROL.LST 
(haute resolution) 

GOSUB gfa_l_vscrol_(screenadr_%,fontadr_ %, 

bufadr_%,x_%,y_%,rows_%,txt_$,options_%) 

GOSUB gfa_m_vscrol_(screenadr_%,fontadr_%, 

bufadr_%,x_%,y_%,rows_%,txt_$,options_%) 



Parametres: 


- screenadr _ % : 

Adresse de l'ecran sur lequel le texte (txt_$) devra defiler; en principe, on 
entre ici XBIOS(2) qui est l'adresse de l'ecran actuellement visible. 

-fontadr _ % : 

Adresse d’une police de caracteres convertie ; comme les procedures 
VSCROL utilisent obligatoirement une police de caracteres convertie a 
1-aide d'une procedure VCONV, il faut ici entrer l’adresse d'une police de 
caracteres de ce type, en respectant bien le degre de resolution. 

- bufadr _ % : 

Adresse d'un buffer necessaire pour ensuite restaurer le contenu de 
l'arriere-plan recouvert par le texte ; il convient de creer un buffer de taille 
suffisante, qui varie en fonction du nombre de lignes reservees a laide du 
param&tre rows_%, faute de quoi les donnees ecraseraient dautres 

donnees importantes. 

Voici comment calculer la taille de ce buffer : 

>■ basse resolution : rows_ %*16*2 

>- moyenne resolution: rows_% * 12 * 2 

>- haute resolution : rows_% * 6*2 

- x % : coordonnee X du coin superieur gauche du secteur dans lequel le 
texte defilera ; valeurs autorisees : 

basse resolution : 0 - 304 

moyenne resolution : 0 - 608 

haute resolution : 0 - 608 

Si vous depassez ces limites, la procedure LJVSCROL, M_VSCROL ou 
H_VSCROL se plantera, et le texte ne se mettra done pas a defiler. 

- V _ % ■ 

Coordonnee Y du coin superieur gauche du secteur dans lequel le texte 
defilera ; valeurs autorisees : 



>■ basse resolution : 0-199 

>■ moyenne resolution : 0-199 

>■ haute resolution : 0 - 399 

Si vous entrez une valeur superieure a ces maxima, la procedure se plante; 

si vous affectez a y_% une valeur negative, c'est la valeur de rows_% qui 

decidera si le texte va ou non se mettre a defiler. Si rows_% est assez 

grand pour qu'une partie du secteur de defilement figure tout de meme 

dans l'ecran, le defilement du texte se fera dans ce secteur ; si rows_% est 

par contre assez petit, tout le secteur se trouve en dehors de l'ecran, et la 
procedure se plante. 

Exemple : 

y_%=-100 et rows_%=200 

=> les cent lignes superieures de l'ecran pourront servir a faire defiler le 
texte 

y_%=-100 et rows_%=50 

=> plantage. 

- rows _% : 

Nombre de lignes d'ecran a l'interieur desquelles le texte va defiler ; vous 

pouvez entrer n'importe quelle valeur, mais attention : si rows_ % <= 0, 

vous ressortez immediatement de la procedure ; si vous entrez plus de 
lignes que l'instruction n'en contient reellement, la procedure se charge de 
ramener le nombre de lignes au maximum possible. 

Le nombre de lignes se compte toujours en tenant compte de la valeur 

entree sous y_% ; si la ligne designee par y_% se trouve en dehors de 

l'ecran (valeur negative), cela revient a soustraire ce nombre de ligne de 
rows_%. 


- txt _ $ : 


Chaine de caracteres qui va defiler et qui peut avoir une longueur 
(quasiment) quelconque. Le string peut certes contenir n'importe quel code 
appartenant au tableau ASCII, mais seuls les 40 signes convertis a l'aide de 
L_VCONV, M_VCONV ou H_VCONV pourront defiler ; les minuscules 


seront assimilees a des majuscules. Vous pouvez done saisir votre string 
txt_$ en minuscules ou majuscules. 

Les caracteres ne faisant pas partie des caracteres convertibles seront 
remplaces par des espaces vides. 

- options_% : 

Ce parametre sert a preciser la duree pendant laquelle le texte va defiler; il 
doit obligatoirement prendre une des valeurs suivantes : 

options_% == 0 : Le texte defile sans arret a l'ecran, grace a une boucle 

sans fin ; pour en ressortir, il faut appuyer sur une 
touche quelconque; 

>- options % < 0 : Lorsque le parametre ’options %' a une valeur 

negative, le texte ne defile qu'une fois a l'ecran, et il 
est impossible d'interrompre ce defilement; 

>~ options % > 0 : Lorsque le parametre 'options_%' a une valeur 

positive, le texte ne defile egalement qu'une fois a 
l'ecran, mais il est possible d'interrompre ce 
defilement avant qu'il ne le fasse tout seul. 


Valeur retoumee: 
lib_rv _% = 

Code d'erreur ; lib_rv_% retoume la valeur -1 si vous avez oublie de 
charger le fichier INLINE accompagnant la procedure et la valeur 0 si tout 
se deroule correctement. 

Description: 

Les procedure L_VSCROL, M_VSCROL et H_VSCROL permettent de faire 
defiler verticalement un texte sur l'ecran, de bas en haut. 

Vous pouvez utiliser une police de caracteres de votre creation, se 
composant de 40 signes. 



II vous faudra convertir cette police a l'aide d'un des trois procedures 
VCONV et charger la police convertie en memoire vive avant de lancer 
LJVSCROL, MJVSCROL ou H_VSCROL. 

Attention : V 

Le string a faire defiler ne doit contenir que des caracteres contenus dans la 
police de caracteres ; les autres caracteres seront remplaces par des espaces 
vides et n'apparaitront pas a l'ecran. La procedure ne distingue pas entre 
minuscules et majuscules. 

Voici done la suite des caracteres utilisables : 

ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123 
456789 !.: 

Le scrolling ne se fait que si tous les parametres ont des valeurs correctes ; 
le parametre options_% vous permet de choisir entre trois possibility 
d'interruption du programme. 

Particularity des procedures LVSCROL, M_VSCROL et H_VSCROL : le 
texte peut defiler en laissant transparaitre un arriere-plan par les 'lucames' 
formees par les boucles des lettres. C'est pourquoi, en haute resolution 
(procedure H_VSCROL), chaque caractere doit etre accompagne de son 
masque,qui est considere comme une partie de la police de caracteres. 

Les images contenues dans DEMO.PI1 et DEMO.PIC vous montrent 
l'aspect que peuvent avoir de telles polices de caracteres en basse et haute 
resolution (dossier EXAMPLESXSTUFF). 

Notez bien que les procedures, avant de prendre fin, prennent soin de 
restaurer integralement l'arriere-plan d'origine, de faqon a ce qu'il ne reste 
aucune trace du texte ayant defile a l'ecran. 

Ne confondez pas L_VSCROL, M_VSCROL et H_VSCROL avec VSCROL : 
ce dernier sert a faire defiler des graphiques et non des textes ! 

Exemple: voir L_VSCROL.LST sous L_VCONV,M_VCONV ou HVCONV 



Graphisme : GRAF2D 


Utilisation: 


Dossier: 


INLINE: 


Affichage de lettres en deux dimensions, a l'aide d'un 
ensemble de vecteurs, ce qui permet ensuite de 
deformer, refleter (miroir), agrandir, rapetisser, toumer 
ou remplir le caractere. 

GFA_GLIB.3_0\GFA_GLIB.ALL\GRAF2D.LST 
(quelle que soit la resolution) 

Ne necessite aucun fichier INLINE. 


Exemples: EXAMPLES\PROGRAMS.LOW\GRAF2D.LST 

(basse resolution) 

EX AMPLES \PROGRAMS.HIG\GRAF2D.LST 
(haute resolution) 

Syntaxe : GOSUB gfa_graf2d_(x_%,y_%,char_$,options_%, 

miroir_%,angle_%,xfacteur_,yfacteur_, 

xpenche_%,flag_!) 


Parametres: 

- x_% : 

coordonnee X du coin gauche inferieur de la lettre. 

-y_% •• 

Coordonnee Y du coin gauche inferieur de la lettre. x_% et y_% peuvent 

prendre n'importe quelle valeur. 


- char _ $ : 


Caractere a afficher ; le jeu de caracteres ne comprenant que les lettres 
majuscules depourvues de tout accent, seules ces lettres sont autorisees. La 

variable lib rv_% renvoie la valeur 1 lorsque vous entrez un caractere non 

autorise. 



Si vous entrez ici une chaine de plusieurs caracteres, seul le premier de 
ceux-ci sera retenu et traite. 

- options _% : 

Rag ; seuls les bits 0 a 3 de ce parametre sont utiles, les autres peuvent 
prendre n'importe quelle valeur. 

options_% permet de preciser quelle manipulation on entend faire subir a 

la lettre concernee ; on peut par exemple la faire toumer, auquel cas il 
conviendra de preciser l'angle de rotation. 

Voici la signification des bits 0 a 3 : 

>- Bit 0 = echelle de restitution : 

Le caractere conceme va etre grossi ou rapetisse a l'affichage, selon le 
contenu des facteurs xfacteur_(axe des X) et yfacteur_(axe des Y). 

>■ Bit 1 = rotation : 

Le caractere concerne va s'afficher vu sous Tangle precise a l'aide du 
parametre angle_ %. 

>- Bit 2 = inclinaison : 

Le caractere va s'afficher penche, un peu comme une italique, selon la 
valeur donnee au parametre xpenche_% 

Bit 3 = miroir: 

Le caractere semble se refleter dans un miroir, le parametre miroir_% 

permettant de specifier si ce miroir est horizontal ou vertical. 

Regie s'appliquant a ces trois bits : un bit mis signale que la manipulation 
en question est activee, alors qu'un bit non mis signale que le caractere ne 
sera pas affecte par la manipulation concernee. 

Ainsi par exemple, lorsqu'aucun bit du parametre options n'est mis, les 

autres parametres completant options_% sont ignores. II convient 

cependant de les entrer malgre tout, quitte a leur donner une valeur 
purement arbitraire. 


II est plus facile d'activer ou desactiver individuellement les quatre bits de 

ce parametre options_% en les ecrivant dans le binaire usuel sous le Gf A 

Basic. Par exemple, pour indiquer que les bits 0 et 2 sont vrais, on ecrira: 

&X101. 

-miroir _% : 

Sert a determiner l'axe du miroir, lorsque le bit 3 du parametre options_% 

est sur 1, faute de quoi ce parametre est ignore. 

Valeurs autorisees: 

>• miroir_ % == 1 : axe vertical, le caractere est 'mis sur la tete' 

>- miroir_% == 0 : axe horizontal. 

- angle _% : 

Sert a determiner l'angle de rotation (indique en degres) du caractere 
lorsque le bit 1 du parametre options_% est mis sur 1, faute de quoi ce 
parametre est ignore. La rotation s'exerce par rapport au coin inferieur 
gauche du caractere, dans le sens des aiguilles d'une montre. 

- xfacteur _: 

Facteur d'inclinaison du caractere, dans l'axe X, lorsque le bit 0 du 
parametre options_% est mis sur 1, faute de quoi ce parametre est ignore. 

- yfacteur _ : 

Facteur d'inclinaison du caractere, dans l'axe Y (voir xfacteur_). 

Notez que xfacteur_et yfacteur_sont des variables a virgule flottante 

(floatingpoint variable), si bien que vous pouvez entrer ici non seulement 
des nombres entiers mais aussi des nombres decimaux (a virgule). Ceci 
vous permet d'agrandir ou rapetisser de fagon tres fine le caractere 
conceme. 
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-xpenche _% : 

Facteur d'inclinaison du caractere, dans l'axe X, qui vous permet de 

pencher le caractere lorsque le bit 2 du parametre options_% est sur 1, 

faute de quoi ce parametre est ignore. 

Les valeurs positives font pencher le caractere vers la gauche et les valeurs 
negatives vers la droite. 

-flag—! •• 

Hag du motif de remplissage ; ce parametre permet d'indiquer si le 
caractere doit etre rempli par un motif ou non; il est possible de determiner 
le motif de remplissage avant l'appel de la procedure, a l'aide de 
l'instruction DEFFILL du Gf A Basic. 

Valeurs autorisees: 

>> flag ! == TRUE : le caractere sera rempli par un motif 

>- flag ! == FALSE : le caractere ne sera pas rempli par un motif. 

La routine de remplissage est prise en charge par l'instruction FILL du Gf A 
Basic. Comme il s'agit d'une routine 'floodfill', il peut arriver que le 
caractere ne soit pas completement rempli s'il est trop penche ou s'il 
chevauche un autre caractere. 

Valeur retoumee: 
lib_rv _% = 

Code d'erreur ; aucun caractere ne s'affiche, et lib_rv_% retourne la valeur 

1 lorsque vous entrez sous char_$ un caractere qui ne fait pas partie du jeu 

de caracteres vectorises ; lorsque vous entrez un caractere autorise (toutes 

les majuscules non accentuees) lib_rv_% retourne la valeur 0 et le 

caractere vient s'afficher correctement a l'ecran. 

Description: 

Cette procedure vous permet d'afficher en deux dimensions a l'ecran une 
lettre de l'alphabet qui tienne compte d'un jeu de vecteurs integre dans la 
procedure ; le caractere peut etre agrandi, rapetisse, reflete dans un miroir, 



Le jeu des caracteres autorises comprend toutes les majuscules non 
accentuees, aucun autre caractere n'etant pris en compte. 

Comme nous l’avons deja dit, cette procedure permet l'affichage en deux 
dimensions : notez 'qu'il est suivi d'un autre procedure permettant 
l'affichage en trois dimensions nomme GRAF3D (voir ci-apres). Ce dernier 
procedure permet d'obtenir un effet de profondeur du caractere. 

Attention: V 

II convient d'appeler la procedure GRAF2D une premiere fois avant tout 
utilisation pour initialiser le jeu des vecteurs. On entre alors aucun 
caractere tout en attribuant des valeurs quelconques aux parametres. 

Exemple: EXAMPLES\PROGRAMS.LOW\GRAF2D.LST 

MERGE: GFA_GLIB.3_0\GFA_GLIB.ALL\GRAF2D.LST 

GOSUB gfa_graf2d_(0,0,"'\0,0,0,0,0,0,FALSE) ! initialisation de la procedure 

DEFFILL 1,1,0 


GOSUB gfa_graf2d_(25,100,"G",SX11,0,30,2,2,0,TRUE) 

GOSUB gfa_graf2d_(81,132, "F", 4X11,0,30,2,2,0, TRUE) 
GOSUB gfa_graf2d_ (120,155, "A", 4X11,0,30,2,2,0, TRUE) 


PRINT AT (1,23) ; "Appuyez sur une touche pour ressortir" 

~INP (2) 

Nous appelons une premiere fois la procedure GRAF2D pour initialiser le 
jeu des vecteurs qu'il contient, car ce jeu de vecteurs se compose de lignes 
de donnees a charger. 


L’instruction DEFFILL du Gf A Basic nous permet ensuite de creer un motif 
de remplissage des caracteres a afficher. 


Nous affichons les trois lettres majuscules "G", "F 1 et "A" ; le "G" s'affiche a 
la position 25,100 (x_%,y_%). Les coordonnees designent le coin inferieur 
gauche de la lettre. 



Pour sortir le "G", nous affectons le string "G" au parametre char_$ ; le 

string ne se compose que d'une seule lettre, puisqu'il convient d'appeler 
GRAF2D pour chaque caractere a afficher. 

Les bits 0 et 1 du parametre options_% sont vrais, et les bits 2 et 3 faux. 

Cela signifie que le caractere va etre allonge d'un facteur 2 tant dans l'axe 

des X (xfacteur_) que dans l'axe des Y (yfacteur_) (ce qui revient a 

agrandir le caractere). Par contre, le caractere ne sera ni reflete dans un 

miroir (bit 2 faux dans options_%) ni penche (bit 3 sur 0 dans options_%) 

: les parametres miroir_% et xpenche_% sont ignores. 

Pour les trois caracteres, nous avons affecte la valeur TRUE au flag de 

remplissage flag_!, si bien que nos trois caracteres vont etre completes par 

le motif cree a l'aide de l'instruction DEFFILL du GfA Basic. 

Pour interrompre la demonstration, il suffit d'appuyer sur une touche 
quelconque apres l'affichage des trois caracteres. 



Graphisme : GRAF3D 


Utilisation: 


Dossier: 


INLINE: 
Exemples: 


Syntaxe: 


Affichage de lettres en trois dimensions, a l'aide d'un 
ensemble de vecteurs, ce qui permet ensuite de 
deformer, refleter (miroir), agrandir, rapetisser, toumer 
ou remplir le caractere. 

GFA_GLIB.3_0\GFA„GLIB.ALL\GRAF3D.LST 
(quelle que soit la resolution) 

Ne necessite aucun fichier INLINE. 

EXAMPLES\PROGRAMS.LOW\GRAF3D.LST 
(basse resolution) 

EXAMPLES\PROGRAMS.HIG\GRAF3D.LST 
(haute resolution) 

GOSUB gfa_graf3d_(x_%,y_%,char_$,options_%, 

miroir_%,angle_%,xfacteur_,yfacteur_,zfacteur_, 

xpenche_%) 


Parametre: 

- x_% : 

Coordonnee X du coin gauche inferieur de l'avant-plan de la lettre. 

Coordonnee Y du coin gauche inferieur de l'avant-plan de la lettre. x—% et 
y_% peuvent prendre n'importe quelle valeur. 


- char _ $ : 


Caractere a afficher ; seules sont autorisees les lettres majuscules 
depourvues de tout accent, car le jeu de caracteres ne comprend que ces 
lettres. La variable lib_rv_% renvoie la valeur 1 lorsque vous entrez un 
caractere non autorise. 



Si vous entrez ici une chaine de plusieurs caracteres, seul le premier de 
ceux-ci sera retenu et traite. 

- options_% : 

Flag ; seuls les bits 0 a 3 de ce parametre sont utiles, les autres peuvent 
prendre n'importe quelle valeur. 

options_% permet de preciser quelle manipulation on entend faire subir a 

la lettre concernee ; on peut par exemple la faire toumer, auquel cas il 
conviendra de preciser l'angle de rotation. 

Voici la signification des bits 0 a 3 : 

>• Bit 0 = echelle de grandeur: 

Le caractere concerne va etre grossi ou rapetisse a Taffichage selon le 
contenu des facteurs xfacteur_ (axe des X) et yfacteur_(axe des Y). 

Bit 1 = rotation : 

Le caractere concerne va s'afficher vu sous Tangle precise a l'aide du 
parametre angle_%. 

>■ Bit 2 = inclinaison : 

Le caractere va s'afficher penche, un peu comme une italique, selon la 
valeur donnee au parametre xpenche_% 

Bit 3 = miroir: 


Le caractere semble se refleter dans un miroir, le parametre miroir_ % 

permettant de specifier si ce miroir est horizontal ou vertical. 

Regie s'appliquant a ces trois bits : un bit mis signale que la manipulation 
en question est activee alors qu'un bit non mis signale que le caractere ne 
sera pas affecte par la manipulation concernee. 

Ainsi par exemple, lorsqu'aucun bit du parametre options n'est mis, les 

autres parametres completant options_% sont ignores. II convient 

cependant de les entrer malgre tout, quitte a leur donner une valeur 
purement arbitraire. 



H est plus facile d'activer ou desactiver individuellement les quatre bits de 

ce parametre options_% en les ecrivant dans le binaire usuel sous le GfA 

Basic. Par exemple, pour indiquer que les bits 0 et 2 sont mis, on ecrira : 

SX101. 

-miroir _% : 

Sert a determiner l’axe du miroir, lorsque le bit 3 du parametre options_% 
est sur 1, faute de quoi ce parametre est ignore. 

Valeurs autorisees: 

>»- miroir % == 1 * axe vertical, le caractere est mis sur la tete 
>- miroir_% == 0 : axe horizontal. 

- angle _% : 

Sert a determiner Tangle de rotation (indique en degres) du caractere 
lorsque le bit 1 du parametre options_% est mis sur 1, faute de quoi ce 
parametre est ignore. La rotation s'exerce par rapport au coin inferieur 
gauche du caractere, dans le sens des aiguilles dime montre. 


- xfacteur _: 

Facteur d’inclinaison du caractere, dans l’axe X, lorsque le bit 0 du 
parametre options_% est mis sur 1, faute de quoi ce parametre est ignore. 

- yfacteur _: 

Facteur d'inclinaison du caractere, dans l'axe Y (voir xfacteur—). 

- zfacteur _: 

Facteur d'inclinaison dans l'axe Z (voir xfacteur_). 

Notez que xfacteur^ yfacteur_ et zfacteur_ sont des variables a virgule 
flottante (floatingpoint variable), ce qui vous permet d'entrer ici non 
seulement des nombres entiers mais aussi des nombres decimaux (a 
virgule). Ceci vous permet d'agrandir ou rapetisser de fagon tres fine le 
caractere concerne. 


- xpettche _% : 

Facteur d'inclinaison du caractere, dans l'axe X, qui vous permet de 

pencher le caractere lorsque le bit 2 du parametre options_% est sur 1, 

faute de quoi ce parametre est ignore. 

Les valeurs positives font pencher le caractere vers la gauche et les valeurs 
negatives vers la droite. 

Valeur retoumee: 
lib_rv _% = 

Code d'erreur; aucun caractere ne s'affiche, et lib_rv_% retoume la valeur 

I lorsque vous entrez sous char_$ un caractere qui ne fait pas partie du jeu 

des caracteres vectorises ; lorsque vous entrez un caractere autorise (toutes 
les majuscules non accentuees) lib_rv_% retourne la valeur 0 et le 
caractere vient s'afficher correctement a l'ecran. 

Description: 

Cette procedure vous permet d'afficher en trois dimensions a l'ecran une 
lettre de l'alphabet qui tienne compte d'un jeu de vecteurs integre dans la 
procedure; le caractere peut etre agrandi, rapetisse, reflete dans un mirroir, 
penche ou soumis a une rotation. 

Le jeu des caracteres autorises comprend toutes les majuscules non 
accentuees, aucun autre caractere n'etant pris en compte. 

Comme nous l'avons deja dit, cette procedure permet l'affichage en trois 
dimensions : notez qu'il est precede d'un autre procedure permettant 
l'affichage en deux dimensions nomme GRAF2D (voir ci-devant). 

Attention: V 

II convient d'appeler la procedure GRAF3D une premiere fois avant tout 
utilisation pour initialiser le jeu des vecteurs. On n'entre alors aucun 
caractere tout en attribuant des valeurs quelconques aux parametres. 


Exemple : EXAMPLES \PROGRAMS. LOW \ GRAF3D.LST 



MERGE: GFA_GLIB.3_0\GFA_GLIB.ALL\GRAF3D.LST 

GOSUB gfa_graf3d _(0,0,0,0,0,0,0,0,FALSE) ! initialisation de la procedure 


GOSUB gfa_graf3d_ (50,85, "G", SX11,1, -2 0,2,2,2, -31) 

GOSUB gfa_graf3d_(123,158,"F",SX11,1,-20,2,2,2,-31) 

GOSUB gfa graf3d_(178,138,"A",SX11,1, -23,2,2,2,-31) 


PRINT AT (1,24) ;"Appuyez sur une touche pour ressortir" 
~INP (2) 


Nous appelons une premiere fois la procedure GRAF3D pour initialiser le 
jeu des vecteurs qu'il contient, car ce jeu de vecteurs se compose de lignes 
de donnees a charger. 


Nous affichons les trois lettres majuscules "G", "F' et "A"; 
la position 50,185 (x_%,y_%). Les coordonnees designent 
gauche de la lettre. 


le "G" s'affiche a 
le coin inferieur 


Pour sortir le "G", nous affectons le string "G" au parametre char_$ ; le 
string ne se compose que d'une seule lettre, puisqu'il convient d appeler 
GRAF3D pour chaque caractere a afficher. 


Les bits 0 et 1 du parametre options„% sont mis, et les bits 2 et 3 non-mis. 
Cela signifie que le caractere va etre allonge d'un facteur 2 tant dans 1 axe 

des x (xfacteur_) que dans l'axe des Y (yfacteur—) et celui des Z 

(zfacteur_) (ce qui revient a agrandir le caractere). Par contre, le caractere 

ne sera ni reflete dans un miroir (bit 2 non-mis dans options_%) ni penche 

(bit 3 sur 0 dans options_%) : les parametres miroir_% et xpenche_% 

sont ignores. 

Pour stopper la demonstration, il suffit d'appuyer sur une touche 
quelconque apres l'affichage des trois caracteres. 



Graphisme: VSCROL 


Utilisation: 
Dossier: 


INLINE: 
Exemples: 


Syntaxe: 


Defilement vertical d'un secteur de l’ecran 

GFA_GLIB.3_0\GFA_GLIB.ALL\VSCROL.LST 
(quelle que soit la resolution) 

GFA_GLIB.3_0\GFAjGLIB.ALL\VSCROL.INL 

EXAMPLESXPROGRAMS.LOWWSCROL.LST 
(basse resolution) 

EXAMPLESXPROGRAMS.HIGWSCROL.LST 
(haute resolution) 

GOSUB gfa_vscrol_(x_%,y_%,width—%,height —%, 

value_% / sourceadr_%;rows_%ncnt—%) 


Parametres: 

- x__% : 

Coordonnee X du coin superieur gauche du secteur d’ecran dans lequel le 
graphisme va defiler ; cette valeur X doit etre divisible par 16, et etre 
comprise entre les limites suivantes : 

>• basse resolution : 0 - 304 

moyenne resolution: 0 - 624 

>■ haute resolution: 0 - 624 


-y_%: 

Coordonnee Y du coin superieur gauche du secteur d ecran dans lequel le 
graphisme va defiler. Remarquez que les coordonnees X et Y sont indiquees 
en pixels; ces demieres doivent etre comprises entre les valeurs suivantes . 

>> basse resolution : 0-199 

moyenne resolution : 0-199 
3^ haute resolution: 0 - 399 



- width % : 


Largeur du secteur d'ecran dans lequel le graphisme va defiler, indiques en 
mots longs (1 'long' = 4 octets) ; on calcule le nombre de mots longs 
necessaires selon les formules suivantes : 

basse resolution : 16 points = 2 mots longs 

moyenne resolution : 16 points = 1 mot long 
>■ haute resolution: 32 points = 1 mot long 

width_% doit etre compris entre les valeurs suivantes : 

basse resolution : 2-40 longs (16 - 320 points) 

>~ moyenne resolution : 1 - 40 longs (16 - 640 points) 
haute resolution: 1-20 longs (16 - 640 points) 

- height _% : 

Hauteur, en lignes de pixels, du secteur d'ecran ; il convient de ne pas 
depasser les valeurs suivantes : 

>■ basse resolution : 1 - 200 

>■ moyenne resolution : 1 - 200 
>■ haute resolution: 1 - 400 

- value _ % : 

Direction du defilement; valeurs autorisees : 

^ value % == 1: defilement du bas vers le haut 

value % <> 1: defilement du haut vers le bas. 

- sourceadr _% : 

Adresse des donnees a faire defiler ; c'est a partir de cette adresse que 
doivent se trouver les donnees correspondant au secteur a faire defiler, 
dans le format adapte au degre de resolution de l'ecran. Les donnees 
doivent etre enregistrees de fagon sequentielle, c'est-a-dire l'une a la suite 
de 1'autre. 

On tiendra compte des elements suivants pour se faire une idee de la 
quantite de donnees mises en oeuvre dans le defilement: 



En basse resolution : 16 points consecutifs necessitent 8 octets de 
donnees image ; lorsque Ton souhaite par exemple faire defiler un secteur 
aussi large que l'ecran, il faut compter 160 octets par ligne de 320 points. 

>■ En moyenne resolution : 16 points consecutifs necessitent 4 octets de 
donnees image ; lorsque Ton souhaite par exemple faire defiler un secteur 
aussi large que l'ecran, il faut compter 160 octets par ligne de 640 points. 

>• En haute resolution : 16 points consecutifs necessitent 2 octets de 
donnees image ; lorsque l'on souhaite par exemple faire defiler un secteur 
aussi large que l'ecran, il faut compter 80 octets par ligne de 640 points. 

- rows _% : 

Nombre de lignes a faire defiler entierement dans le secteur d'ecran 
conceme. Attention : il ne s'agit pas ici de la quantite de lignes des donnees 
appelees a defiler mais du nombre de lignes des donnees appelees a defiler 
moins le nombre de lignes d'une hauteur d'ecran. En effet, chaque ligne 
comptee est amenee a defiler entierement d'un bord a l'autre du secteur 
d'ecran ; si on entrait ici tout simplement le nombre de lignes des donnees 
appelees a defiler, la demiere ligne viendrait bien elle aussi defiler d'un 
bord a l'autre de l'ecran, mais elle serait suivie des diverses donnees se 
trouvant juste apres elle dans la memoire vive puisque le secteur d'ecran 
est toujours completement rempli. 

- cnt _% : 

Facteur de defilement ; on peut ici preciser de combien de lignes le 
defilement doit avancer a chaque pas ; en indiquant 1, le scrolling se fait 
ligne par ligne, mais on peut aussi entrer par exemple 2, ce qui fera avancer 
le defilement de deux lignes a chaque pas etc. 

Ce facteur de defilement ne doit toujours etre compris entre 1 et la valeur 
de rows_%. 



Valeur retoumee: 


lib_rv _% = * 

Code d'erreur ; lib_rv_% retoume la valeur -1 si vous avez oublie de 
charger le fichier INLINE accompagnant cette procedure et la valeur 0 
lorsque tout se deroule normalement. 

Description: 

la procedure VSCROL vous permet, independamment du degre de 
resolution, de realiser un scrolling vertical; vous pouvez choisir quasiment 
n'importe quel secteur d'ecran pour ce defilement. 

La procedure ne fonctionnera correctement que si vous lui foumissez des 
donnees preparees en tenant compte de la resolution et de la taille du 
secteur d'ecran conceme. 

Exemple : EXAMPLESXPROGRAMS.LOWWSCROL.LST 

MERGE : GFA_GLIB.3_0\GFA_GLIB.ALL\L_VSCROL.LST 

GFA_GLIB.3_0\GFA_GLIB.ALL\PLOAD.LST 

GFA_GLIB.3_0\GFA_GLIB.ALL\POPPAL.LST 

> ! installons un buffer de 32000 octets pour 

' une image Degas (sans sa palette de couleurs) 

INLINE imageadr_%, 32000 

l 

GOSUB gfajpoppal_ 

palette$=lib_rv_$ 

GOSUB gf a_j>load_("\EXAMPLES\STUFF\DEMO.PI1",imageadr_%, 0) 

REPEAT 

ALERT 2," | scrolling | commencer?",1," OUI ",button| 

CLS 

I 

GOSUB gfa_vscrol_(0,0,40,101,1,imageadr_%,100,1) 

l 

ALERT 1," | dans l'autre | direction?",1," OUI ",button| 

I 

GOSUB gfa_vscrol_(0,0,40,101, l,imageadr_%+16000,100,1) 



ALERT 2," | Recommencer? | ",1," OOI | NON ",button| 

UNTIL button|=2 
~XBI0S(6,L :V :palette$) 

Nous commenqons par installer, a l'aide de INLINE, un buffer de 32000 
octets, qui servira a recevoir l'image Degas-Elite contenue dans DEMO.PI1, 
sans sa palette de couleurs. Nous utilisons POPPAL pour sauvegarder la 
palette des couleurs d'origine, et nous chargeons l'image Degas dans le 
buffer grace a PLOAD, en meme temps que nous activons sa palette de 
couleurs. 

Apres avoir requ la confirmation demandee dans la boite de dialogue, nous 
entrons dans une boucle REPEAT... UNTIL qui fait defiler les 100 

(rows_%) premieres lignes de notre image dans un secteur d'ecran de 101 

(height_%) lignes sur toute la largeur de l'ecran (width_% = 40 longs = 

320 pixels). Le secteur d'ecran en question se trouve tout en haut de l'ecran 

(x_%=0, y_%=0). Le defilement se fait ligne par ligne (cnt_%=1), de bas 

en haut (value_%=1). Nous entrons comme adresse des donnees a faire 

defiler celle qui correspond au debut du buffer cree par INLINE 
(imageadr_%) et contenant les informations relatives a l'image chargee. 

Nous attendons ensuite une confirmation, demandee par la deuxieme boite 
de dialogue ; ceci etant fait, le defilement reprend du haut vers le bas 
(value_%=0). 

On peut repeter cette demonstration a volonte en cliquant sur le bouton 
"OUI" de la troisieme boite de dialogue ; on sort de la demonstration en 
cliquant sur "NON". Nous prenons soin de restaurer la palette des couleurs 
d'origine avant de sortir du programme. 



Son : 

SMPLAY 

Utilisation: 

Digitalisation et restitution de morceaux de musique, 
de bruits ou de paroles. 

Dossier: 

GFA_SLIB.3_0\SMPLAY.LST 
(quelle que soit la resolution) 

INLINE: 

GFA SLIB.3_0\SMPLAY.INL 

Exemples: 

EXAMPLES \ PROGRAMS. ALL \SMPLAY. LST 
(quelle que soit la resolution) 

Syntaxe: 

GOSUB gfa smplav (sourceadr_%,memadr_%, 

cnt_%,speed_%,options_%) 


Parametres: 

- sourceadr__% : 

Dans la phase de digitalisation (options_% = 0), adresse a laquelle 

commence les donnees ; dans la phase de restitution sonore (options_% = 

1), adresse de debut des donnees a restituer. 

- memadr _% ; 

Dans la phase de digitalisation, cette adresse designe la fin du secteur de la 
memoire vive con tenant les donnees ; dans la phase de restitution, cette 
adresse indique la fin des donnees a restituer. Dans les deux phases, 
digitalisation et restitution, cette adresse est celle du dernier octet des 
donnees. 

Lorsqu'il s'agit par exemple de restituer les 10000 octets se trouvant a 

l'adresse X, on affecte la valeur X a sourceadr_% et la valeur X + 10000 -1 

(attention, on compte a partir de zero!) au parametre memadr_%. 

- cnt _ % : 

Cette variable n'a de signification que dans la phase de restitution sonore, 
mais il convient tout de meme de lui attribuer une valeur quelconque dans 



la phase de digitalisation ; cnt_% indique le nombre de repetitions du 
fragment sonore. Lorsque cnt_% = 0, le fragment est joue une fois sans 

repetition ; lorsque cnt_% = 1, le fragment sonore est joue deux fois, car il 

se repete une fois. 

- speed _% : 

Ce parametre ne prend de signification qu'en phase de restitution, mais il 
convient (comme pour cnt_%) de lui affecter une valeur quelconque en 
phase de digitalisation. On peut lui donner une valeur comprise entre 0 et 
65565, mais en etant conscient du fait que les valeurs superieures a 100 
entrainent des delais de restitution extremement longs : 

avec speed_% = 65565, la restitution peut durer plusieurs heures! 

- options _% : 

Flag servant a indiquer si l'on est en phase de digitalisation ou de 
restitution ; valeurs autorisees : 

>■ options_% == 0 : digitalisation 

>■ options_% == 1: restitution sonore. 

Valeur retournee: 

lib_rv _% = 

Code d'erreur ; lib_rv_% retourne la valeur -1 lorsque vous avez oublie de 

charger le fichier INLINE accompagnant la procedure et la valeur 0 lorsque 
tout se deroule correctement. 

Description: 

Cette procedure SMPLAY vous permet de digitaliser quasiment n'importe 
quel morceau de musique (gare aux droits d'auteur!), n'importe quel 
bruitage ou fragment parle que l'on peut acheter dans le commerce et 
tournant en 8 bits. Vous pouvez ainsi les reinsurer dans vos propres 
programmes ecrits en GfA Basic, et varier la vitesse de restitution. Vous 
pouvez egalement reprendre des fragments provenant d'autres appareils 
de digitalisation, car SMPLAY traite les donnees en 8 bits. 



Pour restituer le fragment sonore exactement a sa vitesse originale, il faut 
affecter la valeur 22 au parametre speed_%. 

Exemple: EXAMPLES\PROGRAMS.ALL\SMPLAY.LST 

MERGE: GFA^SLIB.3_0\SMPLAY.LST 

DIM buffer_% (3749) ! buffer contenant les donn^es 4 restituer 

I 

BLQAD "\EXAMPLES\STUFF\DEMO.SMP",V :buffer_%(0) 

I 

REPEAT 

GOSUB gfa_smplay_(V :buffer_% (0),V :buffer_%(0)+14999,0,30,1) 

I 

ALERT 2,"| R6p6ter? OUI | NON ", button| 

UNTIL button|=2 

Nous commengons par installer un buffer de taille suffisante en 
dimensionnant un tableau numerique (integerarray) de 3750 elements, 
chacun ayant une longueur de 4 octets. 

On charge ensuite le fichier contenant l'exemple sonore (bruits d'epees!) 
dans le buffer (integerarray) commengant a l'adresse V:buffer_%(0). 

Une boucle REPEAT... UNTIL permet de demander la repetition a volonte 
de ce programme de demonstration ; comme nous avons affecte la valeur 0 

a cnt_%, le fragment n'est joue qu'une fois (pas de repetition). La vitesse 

de restitution est fixee a 30. L'adresse de fin est celle du dernier octet du 
fragment sonore : comme celui-ci occupe 15000 octets, et que le premier 

octet se trouve a l'adresse V:buffer_%(0), nous calculons de la fagon 

suivante l'adresse de.fin: 

memadr_%=V :buffer_%(0)+15000-1 

II suffit de cliquer sur le bouton 'NON' de la boite de dialogue pour 
interrompre la demonstration. 



Son : 

Utilisation: 


Dossier: 

INLINE: 

Exemples: 

Syntaxe: 

Parametres: 

- memadr _% : 

Adresse des donnees phonetiques, qui se trouvent sur la disquette dans le 
dossier EXAMPLESXS l’UFF dans le fichier PHONEMS.SMP. 

Pour pouvoir restituer un fragment parle a l'aide de la procedure SMPLAY, 
il convient de charger d'abord en memoire le fichier PHONEMS.SMP, qui 
contient sous forme digitalisee, tous les phonemes importants. Le 

parametre memadr_% contient l'adresse des donnees phonetiques en 

memoire vive. 

- txt _% : 

Chaine de caracteres a restituer acoustiquement; cette chaine de caracteres 
peut contenir toutes les lettres de l'alphabet, y compris les lettres 
accentuees. La procedure ne distingue pas entre majuscules et minuscules. 

- speed _% : 

Vitesse de la restitution parlee ; en la faisant varier, on peut restituer le 
meme fragment parle depuis le registre des aigiis rapides jusqu'a celui des 

Vihqqpq rtrnfrmHpQ ph lpnfpfi 


SPEECH 

Restitution de fragments paries sur 1'Atari ST ; traitee a 
l'aide des procedures SPEECH et SMPLAY, une chaine 
de caracteres est restituee sous forme acoustique. 

GFA_ SLIB.3 JASPEECH.LST 
(quelle que soit la resolution) 

Ne necessite aucun fichier INLINE. 

EXAMPLES\PROGRAMS.ALL\SPEECH.LST 
(quelle que soit la resolution) 

GOSUB gfa_speech_(memadr_%,txt_%,speed_%) 



Valeur retoumee: 


Aucune. 

Description: 

Cette procedure SPEECH vous permet de restituer acoustiquement des 
textes enregistres sous forme de strings. 

Attention: V 

Ceci ne peut fonctionner que si vous avez auparavant charge en memoire 
vive la procedure SMPLAY et le fichier PHONEMS.SMP contenant les 
phonemes de la langue utilisee. 

Ce fichier PHONEMS.SMP se trouve dans le dossier EXAMPLESNSTUFF et 
occupe 35000 octets. 

Exemple : EXAMPLES\PROGRAMS.ALL\SPEECH.LST 

MERGE : GFA_SLIB .3_0\SPEECH.LST 

gfa_slib.3_o\smplay.lst 

DIM buffer % (8749) ! buffer contenant les phonemes (35000 octets) 

l 

BLOAD "\EXAMPI£S\STIFF\DEM0.SMP",V :buffer_%(0) 

REPEAT 

CLS 

PRINT AT(1,1) ;"veuillez entrer un texte" 

INPUT txt_$ 

( 

GOSUB gfa_speech_(V :buffer_%(0),txt_$,40) 

ALERT 2,"| R§p6ter? |",1," OUI | NON ",button| 

UNTIL button|=2 

Nous commenqons par installer un buffer de taille suffisante (35000 octets) 
pour contenir les phonemes, en dimensionnant un tableau numerique 
(integerarray) de 8750 elements, chacun ayant une longueur de 4 octets. 



On charge ensuite le fichier contenant les phonemes dans le buffer 
(integerarray). 

Une boucle REPEAT... UNTIL permet de demander la repetition a volonte 
de ce programme de demonstration ; il suffit pour cela de commencer par 

entrer un texte quelconque et de l'attribuer a la variable-string txt_$. Cette 

derniere sera transmise directement a SPEECH et restituer acoustiquement. 

La vitesse de restitution est fixee a 40, ce qui est un peu plus rapide que la 
vitesse normale d'elocution. 

II suffit de cliquer sur le bouton 'NON' de la boite de dialogue pour 
interrompre la demonstration. 


Son : 


REPSND 


Utilisation: Pilotage de morceaux de musique ou d'effets sonores 

restitues sous interruption a l'aide de la routine XBIOS 
32 (dosound) ; la procedure REPSND vous permet de 
repeter automatiquement ces fragments sonores ou de 
les interrompre a un moment donne. 

Dossier: GFA_SLIB.3_0\REPSND.LST 

(quelle que soit la resolution) 

INLINE: GFA SLIB.3_0\REPSND.INL 

Exemples: EXAMPLES\PROGRAMS.ALL\REPSND.LST 

(quelle que soit la resolution) 

Syntaxe: GOSUB 

gfa_repsnd_(options_%,sourceadr_%,length_ %) 

Parametres: 

- options _% : 

Code de commande precisant le traitement applique au fragment sonore 
engendre par DOSOUND; valeurs admises : 

>■ options_% == 0 : Interruption immediate du son 

>■ options_ % == 1 : Interruption du son une fois le fragment termine 

>- options._% == 2: Lancer la restitution du fragment sonore avec 

repetition automatique. 

- sourceadr _% : 

Adresse de debut des donnees sonores ; il s'agit de la meme adresse que 
celle qui est entree lors de l'appel de DOSOUND. 

- length _% : 

Longueur des donnees sonores, mesuree en octets. 




Valeur retournee: 


lib_rv _% = 

Code d'erreur; lib_rv_% retoume la valeur -1 lorsque vous avez oublie de 
charger le fichier INLINE accompagnant la procedure et la valeur 0 lorsque 
tout se deroule correctement. 

Description: 

La fonction DOSOUND (XBIOS32) du systeme d’exploitation permet de 
restituer une fois un morceau de musique ou un fragment sonore sous 
interruption. Apres une restitution, ce fragment prend fin, et il faut 
eventuellement le relancer si l'on souhaite qu'il se repete. 

La procedure REPSND vous permet de repeter sans interruption le 
fragment sonore, sans empecher le deroulement du programme normal. 

Les donnees sonores correspondent aux donnees destinees a la routine 
DOSOUND. 

Cette procedure REPSND vous permet aussi d'interrompre a tout moment 
la restitution du fragment sonore, de deux fa^ons differentes : soit en 

l'interrompant immediatement (options_% = 0) soit en ne l'interrompant 

qu'apres son entiere execution (options_% = 1). 

Notez que la procedure REPSND remplace completement DOSOUND, 
qu'il n'est done plus necessaire d'appeler, puisque la procedure s'en charge. 

Exemple: EXAMPLES\PROGRAMS.ALL\REPSND.LST 

MERGE: GFA_SLIB.3_0\REPSND.LST 

RESTORE sons 
donnees_$="" 

DO ! charger les donnees sonores pour 

DOSOUND 
READ bytes 
EXIT IF byteS=-l 

donnees_$=donnees_$+CHR_$ (byte_$) 

LOOP 


' qui doivent etre en format DOSOUND 

SPOKE &H484,PEEK(SH484) AND NOT 1 ! ddsactiver le clic du clavier 

l 

GOSUB gfa_repsnd (2,adr %,60) ! lancer DOSOUND 

I 

PRINT "le fragment sonore sera automatiquement r6p6t6" 

PRINT "apr6s son entire execution." 

PRINT "Mais vous pouvez 1 1 interrompre k tout moment" 

PRINT "en appuyant sur une touche quelconque." 

i 

~INP(2) ! guetter l'appui sur une touche 

i 

GOSUB gfa_repsnd (0,adr %,60) ! interruption immediate de DOSOUND 

I 

PRINT "Appui sur une touche => poursuite de la demonstration" 

~INP(2) ! guetter l’appui sur une touche 

CLS 

i 

GOSUB gfa_repsnd (2,adr %,60) ! relancer DOSOUND 

i 

PRINT " Un appui sur une touche provoquera l'arr@t 
PRINT " de la restitution sonore apr£s l'entifere 
PRINT " execution du fragment" 

i 

~INP(2) ! guetter l'appui sur une touche 

I 

GOSUB gfa_repsnd (l,adr %, 60) ! interruption de DOSOUND k la fin 

' du fragment 

SPOKE &H484,PEEK(&H484) OR 1 ! reactiver le clic du clavier 

i 

sons : Idorinees sonores pour DOSOUND 

DATA &H07,SHFF 

DATA &H08,SHOF 

DATA &H09,SHOF 

DATA SHOA,SHOF 

DATA &H00,&HEE,SH01,SHOO 

DATA &H02,SHBD,&H03,&H00 

DATA &H04,SH9F,&H05,SHOO 

DATA SH07,SHF8 

DATA &HFF.&H32 



DATA &H00,SB1C,SE01,&H01 
DATA SE02,SEE1,SE03,SBOO 
DATA &E04,SHBD,&H05,&H00 
DATA &BFF,&H32 
DATA SHOO,SE65,SE01,SB01 
DATA &H02,SE1C,&H03,&H01 
DATA SE04,&EEE,&H05,&H00 
DATA SHFF,SE50 
DATA &H08,SHOO 
DATA &H09,SHOO 
DATA &E0A,&HOO 
DATA &EFF,SEOO 
DATA -1 

Nous commenqons par enregistrer dans un string (donnees_$) les donnees 

DOSOUND se trouvant dans les lignes de DATA ; c'est la une des 
nombreuses possibilites de charger un certain nombre d'octets dans la 
memoire vive. 

Ceci etant fait, nous calculons l'adresse de debut de ce string a l'aide de 

V : donnees_$, ce qui nous donne en meme temps l'adresse de debut des 

donnees sonores a transmettre au procedure REPSND. 

Pour plus de securite, nous desactivons le clic du clavier car il viendrait 
eventuellement perturber notre morceau de musique. Nous langons 
immediatement REPSND avec le code 2 qui permet de repeter sans fin le 
fragment sonore. Cette repetition peut etre interrompue en appuyant sur 
une touche quelconque, puisque cela relance REPSND, avec cette fois le 
code 0 correspondant a 'interruption immediate de la restitution sonore'. 

II suffit de re-appuyer sur une touche pour relancer l'execution du 
fragment sonore ce qui nous permet de faire une demonstration du 
deuxieme mode d’interruption : un appui sur une touche quelconque 
appelle REPSND avec le code 1, signifiant que le fragment sonore est 
d'abord execute entierement avant de s'interrompre, alors que le 
programme lui-meme a deja pris fin (message "fin de programme"). 



Son : 


MIDIKY 


Utilisation : Restitution d'un fragment sonore a l'aide d'un clavier 

ayant un port MIDI; selon sa hauteur, le fragment est 
joue plus ou moins vite. 

Dossier : GFA_SLIB.3J)\MIDIKY.LST 

(quelle que soit la resolution) 

INLINE : Ne necessite aucun fichier INLINE. 

Exemples : EXAMPLES\PROGRAMS.ALL\MIDIKY.LST 

(quelle que soit la resolution) 

Syntaxe : GOSUB gfa_midiky_(sourceadr_%,length_%, 

value_%,char_%) 

Parametres: 

- sourceadr _% : 

Adresse de debut des donnees sonores a executer; exactement comme avec 
la procedure SMPLAY, il doit ici s'agir d'un fragment au format usuel sur 8 
bits. 

- length _% : 

Longueur des donnees sonores, mesuree en octets. 

Avec la procedure MIDIKY, il est conseille de n'utiliser que des fragment 
assez courts, car chaque fragment sera joue d'un bout a l'autre avant que le 
programme n'accepte un signal provenant de l'appui sur une touche ; c'est 
pourquoi nous vous recommandons de faire executer plutot des melodies 
assez courtes, car la procedure peut creer plus de sons en un delai plus 
court. 

- value _% : 

Canal de sortie MIDI; ce parametre vous permet de choisir le canal MIDI 
par lequel le clavier MIDI que vous utilisez va envoyer ses donnees vers 



l'ordinateur ; en regie generate, c'est le canal 1 qui est selectionne par 
defaut. 

Si vous entrez un numero de canal ne permettant pas de recevoir des 
donnees, le fragment sonore ne pourra pas etre restitue; il convient alors de 
sortir de la procedure par la touche d'interruption (voir ci-apres) et de le 
relancer eventuellement en entrant cette fois un numero de canal qui soit 
correct. 

- char _% : 

Code-touche de la touche d'interruption ; vous entrez ici le code ASCII de 
la touche qui doit servir a sortir de la procedure MIDIKY 

Attention : V 

Evitez dans toute la mesure du possible d'entrer ici le code d'une touche 
non accessible depuis le clavier. 

Valeur retoumee: 

Aucune. 

Description: 

Cette procedure permet d'executer des fragments musicaux, crees par 
exemple a l'aide de la procedure SMPLAY, sur un instrument a clavier, 
muni d'un port MIDI. Chaque touche de ce clavier se voit attribuer une 
vitesse de restitution : un son aigii entraine une execution rapide, un son 
grave une restitution lente. Cela donne l'impression d'une restitution a 
differentes hauteurs du fragment sonore. 

Attention : V 

La procedure MIDIKY appelle la procedure SMPLAY, qui doit done etre 
integre dans votre programme. 

Exemple : EXAMPLES\PROGRAMS.ALL\MIDIKY.LST 
MERGE : GFA_SLIB.3_0\ MIDIKY. LST 


GFA SLIB.3 OXSMPLAY.LST 


DIM buffer %(9999) 


! buffer pour les donnAes sonores 
(40000 octets) 


midicanal_%=1 

I 

BLOAD "\EXAMPLES\STUFF\DEMO.SMP",V :buffer_%(0) 

I 

PRINT AT(1,1) ; "veuillez appuyer sur la touche qui 

PRINT " servira A interrompre le programme" 

1 

key | =INP (2) 

I 

PRINT "Merci ! vous pouvez commencer la demonstration" 

PRINT 

PRINT "pour interrompre la demonstration, appuyez sur ;CHR_$(key|) 

i 

GOSUB gfa_midiky_(V :buffer_%(0) +5000,5000,midicanal_%,key|) 

Nous commenqons par installer un buffer (buffer_%()) dimensionne de 

telle sorte qu'il puisse contenir 40000 octets (soit 10000 elements de 4 octets 
chacun). Nous chargeons dans ce buffer un fragment sonore de 40000 
octets. 

Le programme vous demande ensuite d'appuyer sur la touche qui servira 
par la suite a ressortir de la demonstration de MIDIKY. 

Pour finir, nous lanqons la procedure MIDIKY. 

Vous constatez que nous avons affecte la valeur V:buffer $(0)+5000 a 

sourceadr_% et la valeur 5000 a length_%. Cela signifie que la procedure 

MIDIKY ne va pas executer d'un trait tout le fragment sonore (qui fait 
40000 octets) mais tout d'abord un extrait de 5000 octets, qui commence a 
5000 octets du debut. 

Nous avons selectionne le canal 1 comme canal MIDI (value_% = 

midicanal_%), mais vous pouvez selectionner un autre canal en modifiant 

la valeur attribute a midicanal_%. 

Le dernier parametre transmis est le code-touche de la touche 
d'interruption. 



Apres avoir charge la procedure, vous pouvez executer l'exemple sonore, a 
1'aide de MIDIKY, sur une clavier MIDI ou un autre instrument dote d'un 
port MIDI. 


Divers: 


HORLOGE 


Utilisation: Affichage de l'heure par interruption, a n'importe 

quelle position-curseur. 

Dossier: GFA. ALIB.3 ONHORLOGE.LST 

(quelle que soit la resolution) 

INLINE : GFA_ALIB.3_0\HORLOGE.INL 

Exemples: EXAMPLES\PROGRAMS.ALL\HORLOGE.LST 

(quelle que soit la resolution) 

Syntaxe : GOSUB gfa_horloge_(options_%,x_%,y_ %, 

hours_%,minutes_%,seconds_%,col_%) 

Parametres: 

- options _ % : 

Code de commande, indiquant la fonction a lancer dans la procedure 
HORLOGE ; valeurs autorisees : 

>- options_% == 0 : lancer l'affichage de l'horloge 

>■ options_% == 1: regler l'heure affichee 

>* options_% == 2 : interrompre l'affichage de l'horloge. 

Toute autre valeur sera ignoree ; veillez egalement a regler d'abord l'heure 
affichee a l'aide de options_%=1, avant de passer a l'affichage de l’horloge. 

- • 

Coordonnee X a laquelle l'horloge vient s'afficher ; les valeurs admises 
varient en fonction du degre de resolution de l'ecran : 

>■ basse resolution : 0-32 

moyenne resolution : 0-72 

haute resolution : 0-72 



Si vous entrez une valeur trop grande ou trop petite, lib_rv_% retoumera 

la valeur 1 et vous sortirez de la procedure HORLOGE. 

-y—%: 

Coordonnee Y a laquelle l'horloge vient s’afficher ; valeurs admises, dans 
les trois degres de resolution : 0 - 24. 

- hours _% : 

Ce parametre sert a entrer l'heure lorsque vous passez par options_%=1 ; 

vous ne devez entrer que des valeurs comprises entre 0 et 23 ; lib_rv_% 

retoumera la valeur 1 et vous sortirez de la procedure si vous entrez une 
valeur non autorisee. 

- minutes _ % : 

Voir ci-dessus ; vous entrez ici le chiffre des minutes (de 0 a 59) lorsque 

vous passez par options_%=1 ; lib_rv_% retoumera la valeur 1 si vous 

entrez une valeur non autorisee. 

- seconds _% : 

Voir ci-dessus ; vous entrez ici les secondes lorsque vous reglez votre 

horloge ; lib_rv_% renverra la valeur 1 si vous entrez une valeur inferieure 

a 0 ou superieure a 59. 

- col _% : 

Vous pouvez entrer ici une valeur designant une couleur, ce qui 
determinera la couleur des chiffres servant a communiquer l'heure; valeurs 
admises: 

>■ basse resolution 0-15 

>■ moyenne resolution : 0-3 
>■ haute resolution : 0-1 

Valeur retournee: 

lib_rv_% = code d'erreur ; lib_rv_% retoume la valeur 0 lorsque vous 
avez entre des parametres corrects (c'est-a-dire respectant les limites 
indiauees ci-dessus) et l'execution de la procedure se deroule normalement 


lib_rv_% retoume par contre la valeur 1 lorsque vous avez entre une 

valeur non autorisee, ce qui vous fait immediatement sortir de la procedure 
HORLOGE. 

lib_rv _ % : 

Retourne la valeur -1 lorsque vous avez oublie de charger le fichier INLINE 
accompagnant la procedure. 

Description: 

La procedure HORLOGE est la solution a tous vos problemes d'affichage 
de l'heure sous interruption ; l'affichage peut se faire dans les trois degres 
de resolution et a n'importe quelle position du curseur. 

Cela ne vous empeche pas de poursuivre vos autres travaux en Gf A Basic, 
ce qui revient quasiment a faire tourner deux programmes simultanement. 

L'affichage de l'heure s'avere important dans de nombreuses applications. 

Exemple: EXAMPLES\PROGRAMS.ALL\HORLOGE.LST 

MERGE: GFA_ALIB.3_0\HORLOGE.LST 

PRINT AT(1,1) ; " PROGRAMME POUR TESTER L‘HORLOGE" 

I 

GOSUB gfa_horloge_(l, 0,0,23,59,50,0) ! r6gler l'heure 

l 

PRINT AT(1,3) ;'"heure : 23 :59 :50" 

I 

GOSUB gfa_horloge_(0,2,14,0,0,0,l) ! lancer l'affichage de l'horloge 

I • 

PRINT AT(1,4) ; "horloge mise en marche" 

ALERT 2," | Stopper l'horloge? | ",1," OUI ", button| 

1 

GOSUB gfa_horloge_(2,0,0,0,0,0,0) ! arreter l'horloge 

i 

PRINT "horloge arr§tee" 

Le programme commence par une ligne de texte, suivie de la possibility de 
regler l'heure valable au moment du lancement de la procedure 
HfTRT.nnF. Nous attribuons la valeur 1 au oarametre options %, et les 



valeurs 23, 59 et 50 respectivement a hours_%, minutes_% et 

seconds_%. 


Une fois l'heure ainsi reglee, nous appelons la procedure une deuxieme 
fois, pour lancer l'affichage de l'heure ; il convient ici de preciser les 
coordonnees et la couleur d'affichage; options_% re^oit la valeur 0. 

A partir de ce moment, l'horloge toume sous interruption, en changeant 
toutes les secondes, et le programme Gf A Basic continue lui aussi a toumer. 
Lorsque l'utilisateur clique sur le bouton OUI de la deuxieme boite de 
dialogue, cela relance la procedure HORLOGE en attribuant la valeur 2 au 
parametre options_%, ce qui desactive l'horloge. 

Le programme de demonstration prend fin lorsque l'on confirme l'arret de 
l'horloge. * 

Attention: V 

Lorsque vous integrez la procedure HORLOGE dans un programme en 
GfA Basic, pensez a stopper l'affichage de l'horloge avant de ressortir du 
programme general, faute de quoi cet affichage continuera au niveau du 
bureau GEM ; cela vous menera tout droit a un plantage general des que 
vous lancerez une autre application. Rappelons que cette regie vaut pour 
tous les procedures toumant sous interruption. 

Une astuce: 

lorsque vous etes en train d'ecrire et de concevoir un programme, nous 
vous conseillons de desactiver l'appel de la procedure toumant sous 
interruption en l'introduisant par un signe de commentaire et de ne le 
rendre actif qu'apres avoir mis au point definitivement votre programme. 
En cas d’erreur, il vous serait en effet impossible de stopper la procedure 
HORLOGE, a moins que vous n'ayez pense a introduire une procedure ON 
ERROR GOSUB permettant un branchement vers une autre procedure 
(servant a desactiver l'horloge) lorsque survient une erreur. 



Divers: 


BLACK 


Utilisation : Eteindre l'ecran du moniteur 

Dossier: GFA_ALIB.3_0\BLACK.LST 

(quelle que soit la resolution) 

INLINE : Ne necessite aucun fichier INLINE. 

Exemples: EXAMPLES\PROGRAMS.ALL\BLACK.LST 

(quelle que soit la resolution) 

Syntaxe : GOSUB gfa_black_(options_%) 

Parametre: 

- options _% : 

Flag servant a preciser si l'ecran doit etre allume ou eteint ; valeurs 
autorisees: 

>■ options_% <> 0 : ecran allume 

>■ options_% == 0 : ecran eteint. 

Valeur retoumee: 

Aucune. 

Description: 

On souhaite le plus souvent dissimuler le processus de chargement d'une 
image qui va s'afficher a l'ecran ; cette procedure vous permet de desactiver 
l'ecran, qui devient tout noir, sans que cela ne modifie la situation de la 
memoire d'ecran ou le contenu de cet ecran. 

Exemple: EXAMPLES\PROGRAMS.ALL\BLACK.LST 

MERGE: GFA_ALIB.3_0\BLACK.LST 



ALERT 1 " |6teindre l‘6cran?",l," OUI ",button| 


GOSUB gfa_black_() ! pour 6teindre 1 1 ecran 

I 

*INP{2) ! guetter l'appui sur une touche 

GOSUB gfa_black_(1) ! rallumer l'dcran 

L’exemple est suffisamment parlant pour ne necessiter aucune explication. 



Divers: 


PATMOV 


Utilisation: Decaler un secteur de la memoire vive ayant des 

marges equidistantes. 

Dossier: GFA_ALIB.3_0\PATMOV.LST 

(quelle que soit la resolution) 

INLINE: GFA_ALIB.3_0\PATMOV.INL 

Exemples: EXAMPLES\PROGRAMS.LOW\PATMOV.LST 

(basse resolution) 

EXAMPLES\PROGRAMS.HIG\PATMOV.LST 
(haute resolution) 

Syntaxe : GOSUB gfa_black_(sourceadr_%,destadr_ %, 

cnt_%,bl_%,b2_%) 

Parametres: 

- sourceadr _% : 

Adresse de debut du secteur de memoire a deplacer 

- destadr _ % : 

Adresse cible pour le secteur deplace 

- cnt _ % : 

Nombre de groupes d'octets (voir ci-apres) a deplacer ; ce parametre 
n'accepte qu'une valeur comprise entre 0 et 65535 (indues) faute de quoi 
lib^rv_% retournera la valeur 1. 

- bl _% : 

Nombre d'octets formant un groupe ; ce parametre n'admet lui-aussi 

qu'une valeur comprise entre 0 et 65535 ; la somme de bl_% avec cnt—% 

ne doit pas depasser 65535 



- b2 % : 


Nombre d'octets servant d'espace (de 'marge') entre deux groupes d'octets ; 
la aussi, valeur comprise entre 0 et 65535. 

Valeur retoumee: 

lib_rv_% = code d'erreur; lib_rv_ % retourne la valeur 1 et le decalage ne 

se fait pas en memoire lorsque vous entrez une valeur non autorisee pour 

un ou plusieurs parametres (cnt_ %, bl_% ou b2_%); lib_rv_% retourne 

par contre la valeur 0 lorsque tout se deroule normalement. 

lib_rv_% retouren la valeur -1 lorsque vous avez oublie de charger le 

fichier INLINE accompagnant la procedure. 

Description: 

Cette procedure PATMOV ressemble fortement a l'instruction BMOVE du 
GfA Basic ; la difference reside cependant dans le fait que BMOVE decale 
dans la memoire vive un bloc se composant d'octets s'enchainant les uns a 
la suite des autres, alors que PATMOV permet de decaler un secteur de 
memoire se composant de blocs separes par des vides (marges) a intervalle 
regulier, lesquels vides ne sont pas decales. A l'aide de BMOVE, il serait par 
exemple impossible de faire defiler vers le haut un secteur rectangulaire 
positionne en plein milieu de l'ecran. 

PATMOV permet par contre de determiner combien d'octets il faut decaler 
par ligne (groupe d'octets), l'endroit ou se trouve le premier groupe d'octets 
et combien d'octets vides (formant la marge) s'intercalent entre deux 
groupes consecutifs. 

Admettons par exemple que nous souhaitions decaler 40 octets sur une 
ligne qui en compte 160 en basse resolution, et ce, sur une hauteur de 10 
lignes, soit un rectangle de 10 lignes de haut oour 40 octets de large 
(= 80 pixels) : il nous suffira d'entrer l'adresse du du premier groupe de 40 
octets ainsi que l'adresse-cible de ce groupe. Le nombre de groupe d'octets 

s'eleve a 10 (cnt_%), le nombre d'octets composant un groupe s'eleve a 40, 

et le nombre d'octets servant a faire la marge s'eleve a 120 (160-40). 

Exemple: EXAMPLES\PROGRAMS.LOW\PATMOV.LST 



MERGE : GFA_ALIB.3_0\PATMOV.LST 


GFA_ALIB .3_0 \ GF A_GLIB .ALL \PLO AD. LST 

GFA_ALIB.3_0\GFA_GLIB.ALL\POPPAL.LST 

GOSUB gfaj)oppal_ 

palette_$=lib rv $ 

GOSUB gfa_pload_("\EXAMPLES\STUFF\DEM0.PI1",XBIOS(2), 0) 

SGET image_$ 

I 

REPEAT 

SPUT image_$ 

ALERT 1," | Commencer? | ",1," OUI ", button| 

I 

HIDEM 

GOSUB gfa_patmov_(XBIOS(2)+160*100+80,XBIOS(2),100,80,80) 

SHOWM 

i 

ALERT 2," | Recommencer? | ",1," OUI | NON ", button| 

UNTIL button|=2 
~XBIOS(6,L :V :palette_$) 

Nous nous servons tout d'abord de POPPAL pour sauvegarder la palette 
actuelle des couleurs, puis de PLOAD pour charger l'image se trouvant 
dans le fichier DEMO.PI1 ainsi que sa palette de couleurs et enregistrer le 
contenu de l'ecran dans une variable-string (SGET). 

Vient ensuite une boucle REPEAT... UNTIL qui nous sert a recopier le quart 
inerieur droit dans le quart superieur gauche de l'ecran. 

Le quart de l'ecran commence a la ligne 100 (=> 160 octets par ligne * 100 
lignes) c'est-a-dire au milieu de l'ecran (=> + 80 octets) ; il s'etend sur une 
hauteur de 100 lignes (demi-hauteur de l'ecran) et sur une demi-largeur 
d'ecran (80 octets = 160 pixels = un groupe d'octets). Chaque groupe 
d'octets est done separe du suivant par une marge de 80 octets, puisque 
l'addition d'un groupe d'octets avec la marge doit etre egale a une ligne 
entiere, qui compte 160 octets. 



Nous lanqons PATMOV, qui sert a deplacer ce quart inferieur droit de 
l'ecran vers le quart superieur gauche (debut d'ecran = XBIOS(2)), 
processus que l'on peut repeter a volonte. 

Pour sortir de ce programme de demonstration, cliquer sur le bouton 
'NON' de la boite de dialogue. 



Divers: 


NINPUT 


Utilisation: Saisie de nombre positifs, compris entre certaines 

limites a definir, a partir de n'importe quelle position, 
pixel par pixel. 

Dossier : GFA_ALIB.3_0\NINPUT.LST. 

(quelle que soit la resolution) 

INLINE : Ne necessite aucun fichier INLINE 

Exemples : EXAMPLES\PROGRAMS.LOW\NINPUT.LST 

(basse resolution) 

EXAMPLES\PROGRAMS.HIG\NINPUT.LST 
(haute resolution) 

Syntaxe: GOSUB 

gfa_ninput_(cnt_%,x_%,y_%,mih_%,max—%) 

Parametres: 

- cnt _% : 

Nombre de rangs numeriques par nombre ; ce parametre doit recevoir une 

valeur permettant la saisie des nombres compris entre mih_% et max—%, 

valeur qui ne peut etre inferieure ou egale a 0 ou superieure a 9, faute de 
quoi la saisie sera impossible et lib_rv_ % retournera la valeur 2. 

Pour pouvoir saisir par exemple un nombre compris entre 10 et 100, il ne 
faut par affecter a cnt_% la valeur 1 (ou moins), car elle ne permettrait que 
la saisie de nombres compris entre 0 et 9 ; il est par contre tout a fait 
possible de prevoir un nombre de rangs numeriques superieur aux besoins 
reels. 

- x _% ; 

Coordonnee X de la position a laquelle le nombre doit etre entre ; il s agit 
d'une position mesuree en pixels 



- y—% : 

Coordonnee Y de la position a laquelle le nombre doit etre entre, 

mesureeelle aussi en pixels ; la saisie des ces coordonnees (x_%,y_%) se 

fait exactement comme sous l'instruction TEXT du Gf A Basic. 

- min _ % : 

Valeur minimale ; les valeurs numeriques a entrer seront superieures ou 
egales a cette valeur minimale ; on confirme la saisie en appuyant sur la 
touche <retum> et en cas d'erreur, il faut recommencer la saisie, car on ne 
peut ressortir de la procedure NINPUT qu'apres avoir entre des valeurs 
correctes. 

- max _% : 

Valeur maximale ; les valeurs numeriques a entrer seront inferieures ou 
egales a cette valeur maximale ; on confirme la saisie en appuyant sur la 
touche <retum> et en cas d'erreur, il faut recommencer la saisie. 

Attention: V 

La valeur maximale max_% ne saurait en aucun cas etre inferieure a la 

valeur minimale min_%, faute de quoi aucune saisie ne serait possible, et 

lib_rv_ % retoumerait la valeur -2. 

Valeur retoumee: 
lib_rv _% = 

Nombre saisi ou code d'erreur ; cette variable contient la valeur entree, 
retoumee par la procedure NINPUT, et qui est comprise entre les limites 
precisees a l'aide de min_% et max_% (indues). 

La procedure retoumera la valeur -2 et interdira toute saisie de nombre si 
vous entrez des parametres inexacts (par exemple max_% < min_ %). 



Description: 


La procedure NINPUT represente la solution ideale a tous vos problemes 
de saisie formatee de nombres positifs ; comme il est possible de determiner 
des limites, on obtient toujours un resultat precis et exploitable. 

Cela rend superflue la saisie fastidieuse de nombres, avec tous les controles 
qui s'ensuivent generalement. 

NINPUT s'accompagne de possibility diverses, comme le positionnement 
de la saisie et le choix des attributs de texte a conferer aux nombres saisis. 
Cette derniere possibility vient de ce que la procedure NINPUT utilise 
l'instruction TEXT pour tous les affichages, si bien qu'il est possible de 
recourir a des instructions DEFTEXT pour fixer sous NINPUT les meme 
attributs que sous TEXT. La couleur des caracteres, les attributs de sortie 
(gras, souligne etc) l'angle du texte et la hauteur des caracteres sont ainsi 
variables sous NINPUT. 

Qui plus est, NINPUT veille a ce que l'appui (pour confirmation de la 
saisie) sur la touche <retum> n'entraine pas la destruction d'un eventuel 
masque d'affichage a l'ecran : en effet, a la difference de ce qui se passe avec 
l'instruction INPUT lors d'une saisie erronnee, il faut dans cette procedure 
repeter la saisie dans la ligne suivante. 

NINPUT ne permet que la saisie de nombres, si bien que tout appui sur une 
touche alphabetique reste sans effet. 

Exemple: EXAMPLES\PROGRAMS.LOW\NINPUT.LST 

MERGE: GFA_ALIB.3_0\NINPUT.LST 

DEFTEXT 1,0,0,6 ! precision des attributs 

I 

REPEAT 

CLS 

PRINT AT (1,1) ;"veuillez entrer un nombre conpris" 

PRINT AT(1,2) ;"entre 12 et 6500" 

I 

GOSUB gfa_ninput_(4,120,40,12, 6500) 

PRINT AT(1,4) ;"valeur saisie : " ;lib_rv_% 



ALERT 2," | Recommencer? | ",1," OUI | NON ", button| 

UNTIL button|=2 

Comme la procedure NINPUT recourt a l'instruction TEXT pour tous les 
affichages, il est possible de fixer des attributs d'affichage a l’aide de la 
commande DEFTEXT : il est par exemple possible d’afficher le texte en le 
faisant toumer de 90 degres. Dans l’exemple ci-dessus, nous n'avons pas 
fait usage de la commande DEFTEXT pour fixer des attributs ; nous nous 
limitons a determiner la hauteur des caracteres a l'aide du parametre 6, ce 
qui correspond a la hauteur normale en basse et moyenne resolution. 

L'instruction DEFTEXT est suivie de l'envoi d'un message demandant la 

saisie d'un nombre compris entre 12 (min_%) et 6500 (max_%) ; nous 

attribuons la valeur 4 a cnt_% pour pouvoir entrer les nombres a quatre 

rangs superieurs a 1000, puisque notre valeur maximale s'eleve a 6500 ; 
l'affichage doit se faire a la position 120,40 (x_%,y_%). 

La variable numerique (variable integer) lib_rv_% nous renvoie la valeur 

correcte apres sa saisie (confirmer votre saisie en appuyant sur la touche 
<retum>, et cette valeur ensuite exploitee normalement, par exemple en 
etant affichee a l'aide de l'instruction PRINT du GfA Basic. 

Dans notre programme de demonstration, on peut repeter a volonte la 
saisie a l'aide de NINPUT, puisque cette procedure est lance (GOSUB... ) a 
l'interieur d'une boucle REPEAT... UNTIL. 

Pour ressortir du programme, cliquer sur le bouton 'NON' de la boite de 
dialogue envoyee a la fin du parcours de la boucle. 



Divers: 


PINPUT 


Utilisation: 


Dossier: 


INLINE: 


Saisie de chaines de caracteres (strings) d'une longueur 
a definir, a partir de n'importe quelle position, pixel 
par pixel. 

GFA_ALIB.3J)\PINPUT.LST 
(quelle que soit la resolution) 

Ne necessite aucun fichier INLINE 


Exemples: EXAMPLES\PROGRAMS.ALL\PINPUT.LST 

(quelle que soit la resolution) 

Syntaxe : GOSUB gfa_pinput (x %,y %,length %) 


Parametres: 

- x_% : 
Coordonnee X 

-y—%: 


Coordonnee Y ; les coordonnees x_% et y_% designent des positions 

mesurees en pixels, exactement comme sous l'instruction TEXT du GfA 
Basic et non comme sous l'instruction PRINT. 


- length _% : 

Longueur de la chaine de caracteres a saisir ; ce parametre permet de 
limiter la chaine de caracteres a un certain nombre de caracteres. 

Valeur retoumee: 
librv _ % = 


Chaine de caracteres saisie 



Description: 

Un curseur apparait a la position indiquee par les coordonnees x_%,y—%, 

et il est alors possible de saisir des caracteres au clavier ; le mode de 
fonctionnement de la procedure est exactement semblable a celui de 
l'instruction INPUT du GfA Basic (touches flechees pour le curseur, 
backspace, delete etc) a la difference qu'il faut id preciser la longueur du 
string a saisir. 

Les touches 'cursor up' et 'cursor down' (touches flechees vers le haut et 
le bas) vous permettent de vous deplacer respectivement jusqu'au debut / 
a la fin du texte en cours de saisie. 

Exemple: EXAMPLES\PROGRAMS.ALL\PINPUT.LST 

MERGE: GFA_ALIB.3_0\PINPUT.LST 

GOSUB gfaj>input_(10,100,10) 

PRINT AT (1,20) ; lib_rv_$ 

Vous pouvez maintenant saisir une chaine de 10 caracteres a la position 
(10,100), chaine qui va s'afficher a l'ecran. 



Divers: 


NB5060 


Utilisation : Faire passer de 50 a 60 Hz la frequence de balayage de 

l'ecran. 

Dossier: GFA_GLIB.3_0\NB5060.LST 

(basse et moyenne resolution) 

INLINE : Ne necessite aucun fichier INLINE. 

Exemples: EXAMPLES\PROGRAMS.LOW\NB5060.LST 

(basse et moyenne resolution) 

Syntaxe : GOSUB gfa_nb5060_(value_%) 

Parametre : 

-value _ %: 

Frequence de balayage de l'image a l'ecran ; value_% peut prendre la 

valeur 50 ou 60, correspondant a la frequence de 50 ou 60 Hertz. Si vous 

entrez une autre valeur, lib_rv_% retoumera la valeur 1 et la frequence ne 

sera pas modifiee ; lorsque value_% se voit affecter une valeur correcte (50 

ou 60), lib_rv_retourne la valeur 0. 

Valeur retoumee: 

lib_rv_% = code d'erreur ; lib_rv_% retourne la valeur 0 lorsque 

value_% reqoit une valeur adequate (50 ou 60) et la valeur 1 pour toute 

autre valeur non autorisee. 

Description: 

La procedure NB5060 vous permet de modifier la frequence de balayage 
sur les moniteurs couleurs ; vous avez le choix entre la frequence 50 
(l'image se 'reconstruit' 50 fois par seconde a l'ecran) et la frequence 60 
(60 images par seconde). 



Avec les moniteurs couleurs, il est vivement recommande de travailler le 
plus souvent possible en 60 Hertz, car cela diminue considerablement la 
fatigue visuelle. Attention : si vous sortez vos donnees de 1'Atari ST vers un 
ecran de television, il se peut fort que ce dernier soit incapable d'assumer 
une frequence de 60 Hertz : il convient de lire le mode d'emploi du 
televiseur pour verifier s'il peut suporter cette frequence. 

Cette procedure reste sans effet lorsque vous travaillez avec un moniteur 
monochrome. 

Exemple : EXAMPLES\PROGRAMS.LOW\NB5060.LST 

MERGE : GFA_ALIB.3J3\NB5060.LST 

REPEAT 

ALERT 2," | passer sur | 50 Hertz ? ",1, " 0UI ",button| 

I 

GOSUB gfa_nb5060_(50) 

I 

ALERT 2, 11 | passer sur | 60 Hertz ? ",1, 11 OUI M ,button| 

i 

GOSUB gfa_nb5060_(60) 

I 

ALERT 2," | Repeter ? | ",1, " OUI | NON ",button| 

UNTIL button|=2 

Lors de son premier appel, la procedure fait passer la frequence de l'ecran 
sur 50 Hz, ce qui revient a 'reconstruire' l'image 50 fois par seconde. 

En confirmant le deuxieme message envoye par le programme, l'utilisateur 
relance la procedure NB5060, qui fait alors passer l'ecran sur une frequence 
de 60 Hz : l'image est reconstitute 60 fois par seconde sur l'ecran du 
moniteur. 

On peut repeter a volonte ce changement de frequence, mais cela n'est 
guere conseille car de nombreux changements rapides de la frequence 
s'averent nuisibles pour le moniteur. 


Cliquez sur le bouton 'NON' de la troisieme boite de dialogue pour mettre 
fin au programme de demonstration. 



Divers: 


RESET 


Utilisation : Reinitialisation de la configuration sans l'eteindre 

(reset a chaud). 

Dossier : GFA_ALIB.3_0\RESET.LST 

(quelle que soit la resolution) 

INLINE : GFA ALIB.3_0\RESET.INL 

Exemples : EXAMPLES\PROGRAMS.ALL\RESET.LST 

(quelle que soit la resolution) 

Syntaxe : GOSUB gfa reset 

Parametre: 

Aucun 

Valeur retournee: 

lib_rv_% = code d'erreur ; lib_rv_% retourne la valeur -1 lorsque vous 

avez oublie de charger le fichier INLINE accompagnant la procedure et la 
valeur 0 lorsque tout se deroule normalement. 

Description: 

La procedure RESET vous permet de lancer une reinitialisation de la 
configuration a partir d'un programme (softwarereset). 

Attention: V 

Cela interrompt le programme en cours et vous ramene au niveau du 
bureau GEM (desktop). 

L'effet de cette reinitialisation est exactement le meme que celui obtenu en 
appuyant sur le bouton 'reset' se trouvant au dos de votre Atari ST ; la 
procedure RESET est la methode la plus radicale qui soit pour ressortir 
d'un programme en GfA Basic (!) ce qui peut souvent s'averer utile. 



Exemple: EXAMPLES\PROGRAMS.LST\RESET.LST 

MERGE: GFA_ALIB.3_0\RESET.LST 

ALERT 2," | software | reset ? ",2, " OUI | NON ", button| 

IF button|=1 

GOSUB gfa_reset_ 

ENDIF/ 

Dans notre programme de demonstration, nous commenqons par envoyer 
un message demandant a l'utilisateur s'il souhaite reellement lancer une 
reinitialisation du systeme. S'il clique sur le bouton 'NON', rien ne se passe 
et il ressort du programme, alors que s'il clique sur le bouton 'OUI', il lance 
effectivement une reinitialisation de sa configuration, et se retrouve ensuite 
au niveau du bureau GEM. 
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ROUTINES 

GRAPHIQUES 

ETSONORES 

HanjrPeter BURK/Helmut MICKO 

Deve.oppcurs, void une nouvelle series de routines et programmes cn 
GFA Basic 3.0 destinee a faciirter consicterablement vos t^avaux tels 
que: la gestion d'ecran, df'images, de sprites mais aussi du son. Ces 
routines se presented sous forme de fichiers ASCII prets q I’emploi, 
pouvant etre integras directs rrient au sein des programmes en GFA 
(a partir de la version 3.0). Parmi les quarante prooosees, certaines 
existent sous plusieurs versions seion la resolution d’ecrar. utilisue. 
Disposez de toJtes les expl cations necessaires a leur exploitation: 
role, syntax©,, pararrietres, adresses specifiques... ainsi que de plu- 
sieurs programmes de demonstration, 


PARVll lES SCJ&fflOUIttMMES PROPOSES: 

GRAPHEME 


COLANI provoque une rotation dot 
C 04 J eirs. 

P 540 W: scrolling Jimages ou de 
morceauK dl mages. 

INTANI: animation d'une partie ce 
"ecran. 

LSHAP 16 :c ree dmi y^'iles, dune 
lar^eur de 16 par 203 cm 400 1 ; ixe Is 
MftES; civile I'fcrar. cn sectors du 
resnlurians d fferenCOS 


POLICE: afficnage dc chaines de 
caraderes personnaliseca, 

L^HSCROL scrolling horizontal de 
texts s. 

H-LOUPE: agrandissemerrt d'un 
sectejr de I doran seion jn tscicur 
paranetrable- 

GRAF3D: atiichage de leUres en 3 
dimens ions avee deformsnion, notation, 
agrartissenent... 


SON 


SPEECH: restitution vocale d'jne 
chaine dc caracterea. 

SMPLA.Y: digital'satinn et restitution 
de rnorceau* de nnsicije. dn bruit, de 
oamleS... 


REPSND: axecjticn de sons sous 
initcrrupron. 

MIDIKY: restitution d'un fragment 
scrore suiuant ur. clavier midi. 


9 



Ref. ML 855. Prix: 345 F. 

I5EN: 246899-37EM/ S3IV: C9S0-192B 

E DITIO NS /MICRO A PPLICATI ON 

SS ;tJE DJ FAUBOURG P0ISSMIIERE 7501C PARIS 
TEL (1)47 70 3244 







1 

> 

) 

> 

> 

> 

) 

► 

> 

I 

J 

j 

J 


J 



J 































